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Foreword 



COMPUTEI's Atari Collection, Volume 2 collects more than two 
dozen articles and programs never before published, and in- 
cludes three excellent utilities which appeared in out-of-print 
issues of COMPUTE! magazine from the early 1980s. 

Divided into five chapters, COMPUTEI's Atari Collection, 
Volume 2 includes something for every Atari user. With action 
games like "Front Attack" and "Electronic Football," strategy 
games such as "Heroes" and "The Catacombs of Your Mind," 
and nine other games, Atari arcade lovers will be busy for 
hours. 

Programmers will enjoy the convenience of using "Block 
Line Deleter" and "Variable Changer" and the easy creation 
of vivid graphics with "Graphics Plus." And, as with most 
COMPUTE! collections, there are application programs that 
turn your Atari from a game machine into a workhorse. All 
the programs in COMPUTEI's Atari Collection, Volume 2 are 
ready to type in and enjoy. We've even included the error- 
checking utility, "The Automatic Proofreader," which makes 
program entry errors obsolete. 

Atari personal computers have been vital for a long 
time — and so have COMPUTEI's Atari books. When Atari 
users look for quality programs and clear explanations of the 
most difficult techniques, they look to COMPUTE!. Our sec- 
ond Atari collection will be no exception. 



If you prefer to purchase a disk containing all the pro- 
grams in this book rather than type them in, just use the 
convenient coupon in the back, or call toll-free 1-800- 
334-0868 (in North Carolina, call 1-919-275-9809). 
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The Magic Directory 



Stuart Goldenberg 



Access many of the DOS commands from this easy-to-use BASIC 
utility. Requires a disk drive. 

How often have you been in BASIC and found that you 
needed to do some disk cleanup — perhaps you wished to re- 
name some programs or even delete them? Perhaps you 
wished you knew what was on the disk, but because you 
didn't write everything down, were forced to go to DOS to get 
the directory? 

Going back and forth between DOS and BASIC is time- 
consuming. And when you return to BASIC, you're not sure if 
the filename had one T in it or two. Besides, spelling is not 
one of your strong points, and remembering that funny name, 
which made sense when you named the program, just doesn't 
make sense now. 

Wouldn't it be nice to be able to do most of your disk 
management without having to type in the program names, 
and be able to load and run programs the same way? 

"The Magic Directory" will let you display the disk direc- 
tory on the monitor and get a hardcopy of it on your printer. 
You can exit the program to BASIC, you can delete a program, 
you can lock and unlock, rename, load, run, or enter a pro- 
gram. All these options can be done from this utility program. 
The table below is a list of commands. 

Just select the appropriate file by using the normal cursor 
controls, which move a + cursor in front of the names of pro- 
grams. Select the desired program, and then press the appro- 
priate option and follow instructions as displayed. 

Magic Directory Commands 

Notes 

Lists first 44 files 
Lists remaining files 
Hardcopy of display 
Clears memory (NEW) 
Deletes locked or unlocked 
programs, providing prompt 
as to whether the file is 
locked or not 



Description 


Command 


List of files on disk 


CTRL-A 




CTRL-S 




CTRL-H 


Exit program to BASIC 


CTRL-B 


Delete file 


CTRL-D 
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Description 

Rename files 



Command Notes 

CTRL-N Renames locked or unlocked 
files, indicating if the file is 
locked and preventing the 
use of an existing filename 



Lock files CTRL-P 

Unlock files CTRL-U 

LOAD file from directory CTRL-L 

ENTER file from directory CTRL-E 

RUN file from directory CTRL-R 

Any attempt to do anything to 
MEM.SAV will give you the option 
options are different on your DOS, 
appropriate. 



ENTER does not clear mem- 
ory of prior programs 

Runs file by cursor 

DOS.SYS, DUP.SYS, or 
of entering DOS. If these 
change line 440 as 



Magic Directory 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

LO 10 OPEN #2, 4, 0, "K" : DPEN #4 , 1 2 , , " S " : OPEN #1 
, 6 , , " D : * . * " 

HN20 rem BimEiiaiMOGMrjGiaoiinaauBiaB 

KE 30 GRAPHICS 0:PRINT "C13 SPACES} D I RECTORY" 
CO40 DIM A* (20) , Al* (39) , T* (20) , Tl* (39) , F* ( 12) 

, RENAME* ( 12) :F*="FREE SECTORS" 
Ft) 50 LINE = 0:POKE 752,1 
DA 60 TRAP 120 

NA 70 INPUT #1; A*, A 1 * : L I NE = L I NE+ 1 
EHB0 IF A1*(5,16)=F* THEN GOTO 110 
DJ 90 PRINT A*;" ";A1*:IF LINE = 22 THEN GOTO 13 


OB 100 GOTO 70 
KH110 PRINT A*:PRINT A1*;:IF LINE = 22 THEN LIN 

E = 23 
PD 120 IF A*(5,16)=F* THEN PRINT A*: IF LINE = 22 

THEN LINE=23 
HI 130 REM 
IB 140 IF LINE = 22 THEN INPUT #1,A*:IF A*(5,16> 

= F* THEN POSITION 2 , 23 : L I NE= 1 00 : PR I NT A 

*; : GOTO 150 
KH 150 XT = PEEK(90) :LR = 3: X = 2 
GE 160 POKE 84, X- (LINE=1 ) - (LINE = 23) : POKE 85,3: 

PUT #4,43 
DG 170 K = 0:GET #2, K 
HO 180 POKE 85,LR:P0KE 195,0:PUT #4,32 
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S6 190 

DL 200 

HP 210 
OB 220 
AB 230 

AC 240 
LE 250 
PA 260 
BH 270 
OF 280 

BH 290 
IC 300 

HO 310 

AB 320 
IP 330 
DP 340 
KH 350 
FL 360 
CC 370 
KK 380 
HF 390 
PO 400 



DL 410 
in 420 

BP 430 
NP 440 



AF 450 
AN 460 



GO 470 
GH 480 

HK 490 
DJ 500 



IF K=28 
OKE 85, 
IF K=29 
:POKE 8 
IF K=30 
IF K=31 
IF K = 4 
R K=18 
IF K=l 
IF K = 2 
IF K = 8 
POKE 85 
IF K=19 
UT #1 , A 
GOTO 17 
IF K=16 

#4, 43: 
IF K=21 

#4,43: 

rem r-rar 



AND 
LR 

AND 
4, X: 

THE 

THE 
OR K 
OR K 
THEN 
THEN 
THEN 
, LR: 

AND 
1$: 6 


THE 
IF T 

THE 
IF T 
GSEE 



X> = 2 THEN X=X-l:POKE 84,X:P 



X<XT- 
POKE 8 
N POKE 
N POKE 
= 5 OR 
= 21 TH 

RUN 

GRAPH 

GOTO 
PUT #4 

LINE = 
OTO 80 

N POKE 
X = 42 T 
N POKE 
X = 32 T 

■CUT 



1+(LINE=22) THEN X=X+1 
5, LR 

85, 3: LR=3 

85, 21 : LR=21 
K=12 OR K=14 OR K=16 
EN GOTO 300 

ICS 0:NEW 

890 

,43 

22 THEN GOSUB 1030: INP 



85,LR-1:GET #4,TX:PUT 
HEN GOTO 170 

85,LR-1:GET #4,TX:PUT 
HEN GOTO 170 

arrant :[»»*! 



T* ( 1 ) =" 
FOR 1=3 
GET #4, 
T* ( I , I > 
NEXT I 
POKE 85 
POKE 75 
IF T* ( 1 
13) : T* ( 
, 1 1 > : T* 
FOR 1=1 
IF T* ( I 
(1,1) 
NEXT I 
IF Tl* = 
R Tl*=" 
40+ (T=3 
TRAP 46 
IF PEEK 
"ERROR 
NOT FOU 
TRAP 48 
IF PEEK 
ERROR 2 



14 



D: " 
TO 
TX 
= CHR* (TX) 



, 12+LR: PUT #4, 32 

2,0 

1,11)0' 

13, 13) =Tt ( 

(11,11)="." 

TO 14 
,!)<>" " THEN T1$(LEN(T1*)+1)=T$ 



THEN T* ( 14, 14) =T* ( 13, 
12, 12) : T* ( 12, 12) =T* ( 1 1 



"D: DOS. SYS 
D: MEM. SAV" 
5) *40 

: X I 1 3 , # 
( 195) =170 
170 - ILLE 
ND" : GOSUB 


( 195) =21 T 

1 - NON LO 



IF PEEK ( 195) =165 
"ERROR 165 - FILE 
: RUN 
REM rjEEElin E 



" OR T1*="D:DUP. SYS" 
THEN GOSUB 850:GOTO 8 

1, 0, 0, Tl* 

THEN GRAPHICS 0:PRINT 
GAL FILE NAME OR FILE 
860: RUN 

HEN GRAPHICS 0:PRINT " 
AD FILE":GOSUB 860:RUN 
THEN GRAPHICS 0:PRINT 
NAME ERROR":GOSUB B60 
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LA 510 


KP 520 


EA 530 


HA 540 


EO 550 


6B 560 


EO 570 



IF K=12 THEN GRAPHICS 0:PRINT "LOAD 

";T1*:L0AD Tl* 

IF K=1S THEN GRAPHICS 0:PRINT "RUNN 

";T1*:RUN Tit 

IF K=5 THEN GRAPHICS 0:PRINT "ENTER 

";T1*:ENTER Tl* 

rem mnMnsssusmansmmEanm 

POKE B5,LR-1:GET #4,S 

IF S<>42 THEN GOTO 660 

GRAPHICS 0:PRINT "TYPE # TD CDNTINU 



m 580 

EP 590 
IP 600 
HO 6 10 
LG 620 
IC 630 
AN 640 
II 650 
LL 660 

PH 670 
EP 680 
IG 690 
LF 700 
IB 710 



720 
730 
740 
750 
760 



JH 770 
OA 780 
GH 790 



PG 800 

NK 810 
PM 820 
GN 830 
JB 840 
GH 850 

CK 860 



ING 
ING 
ING 



E, P 
WILL UNLOCK 



TO 



T* 
1 ; T* 
':T* 



ROGRAM IS LOCKED, CONTINUING 

THE PROGRAM" 
PRINT "AND CONTINUE YOUR REQUEST 
RINT " " 

IF K=4 THEN PRINT "DELETE 
IF K=21 THEN PRINT "UNLOCK 
IF K=14 THEN PRINT "RENAME 
GOSUB 860 
IF T<>35 THEN RUN 
XIO 36, #1 , 0, 0, Tl*: GOTO 720 
REM LILUq.L— *»1>L «M^« * *=■:! : t.I>3 a! >HJ:31i 
GRAPHICS 0:PRINT "TYPE # TO CONTINU 
UR REQUEST TO": PRINT " " 
IF K=16 THEN PRINT "LOCK " ; T* 
IF K=4 THEN PRINT "DELETE " ; T* 
IF K=14 THEN PRINT 
GOSUB 860 
IF T<>35 THEN RUN 
IF K=4 THEN XIO 33, #1 



E YO 



RENAME 



T* 



0, 0, Tl*: RUN 



IF K=16 
IF K=21 
REM 



0, 0, Tl*: RUN 
0, 0, Tl*: RUN 



aaaaa 



THEN XIO 35, #1 
THEN XIO 36, #1 
■ntHH anuria 

PRINT " ":PRINT " newn ante . ex t " : I NPUT 
AME*:PRINT :PRINT "RENAME D:OLD NAM 
W NAME" 
T*="€16 SPACES} ": T*="D 



REN 
E, NE 



T* (3) =RENAME* 



TRAP 790:XIO 13,#1,0,0,T* 
IF PEEK ( 195) O170 THEN GRAPHICS 0: 
"FILE NAME ALREADY ON 



DISK 



>RINT 

:gal 



Pf 
OR ILLEt 

FILE NAME":POKE 195,0:GOTO 760 
T1*(LEN(T1*)+1)=",":T1*(LEN(T1*)+1)=REN 
AME* 

PRINT " ":PRINT Tl* 
XIO 32, #1,0, 0, Tl* 
CLOSE #2: CLOSE #4 
RUN 
GRAPHICS 0:PRINT 

BE ENTERED, OR" 
PRINT "TYPE ANY KEY 
TO THEDIRECTORY" 



BY TYPING #, DOS WILL 
EXCEPT # TO RETURN 
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GET #2,T:P0KE 195,0:RETURN 

DOS 

TRAP 990 

OPEN #7, 8,0, "P" 

POKE 85,3:PUT #4,32:P0KE 85,21:PUT #4,3 

2 

PRINT #7:PRINT #7 

FOR Y=0 TO XT 

POSITION l,Y:FOR 1=1 TO 39:GET #4,S:T1* 

(1,1) = CHR* (S) : NEXT I 

PRINT #7;T1* 

NEXT Y 

PRINT #7:PRINT #7 

RUN 

GRAPHICS 0:PRINT "ERROR 138 - CHECK PRI 

NTER/INTERFACE TOSEE IF THEY ARE ON" 

GOSUB 860 

CLOSE #7 

RUN 

INPUT #1,A1* 

GRAPHICS 0:POKE 752,1:PRINT " 

C6 SPACES>DIRECT0RYC3 SPACES>- 

£4 SPACES>PAGE 2" 
LO 1050 LINE = LINE+1 : POP : GOTO 80 



NC 870 


16 880 


HK 890 


KF 900 


DA 910 


KD 920 


JI 930 


DF 940 


BJ 950 


DH 960 


KI 970 


JS 980 


IB 990 


NP 1000 


JC 1010 


LI 1020 


SK 1030 


06 1040 



Atari Bibliography 



Dana Noonan 



- 



Index all your computer magazines conveniently and easily and 

store the data in files on disk. Requires 48K RAM and a disk 

drive. __ 

If you're like me, you have piles of computer magazines. 
Often, I know there's an article somewhere in that pile about a 
particular subject if only I could remember where. 

To solve this problem I wrote "Atari Bibliography" to 
keep track of all those magazine articles I had sitting around 
the house. The program had to meet several criteria. It had to 
be able to retrieve entries by title, source, category, and 
programming language, but not by author, year, or issue. 
Since hundreds of articles containing Atari programs are pub- 
lished each year, the program had to be able to handle a very 
long string in RAM memory. And because it's easier and faster 
to find something in an alphabetized list, it had to include a 
simple title sort. As the program developed, I added features 
so that entries could be changed, deleted, or printed. 

The sort was first written in BASIC, but it was very slow. 
I adapted Ron Marcuse's machine language sort routine, which 
first appeared in the March 1982 issue of COMPUTE! and was 
reprinted in COMPUTERS Third Book of Atari. It appears below 
as Program 1. 

One Long String 

The Atari Bibliography program (Program 2) requires 48K 
RAM. Because of the program's large memory requirements, 
frequently used constants are read in as variables to save 
memory. In line 210, Z$ is DIMensioned to 23500 — or the 
equivalent of 500*47. Each substring— A$ or Z$(#*K-J,#*K)— 
is 47 characters long and contains the following information: 

A$(l,l) Category 

A$(2,2) Language 

A$(3,3) Source 

A$(4,5) Year 

A$(6,7) Issue or month 

A$(8,10) Starting page 

A$( 11,47) Title and comments if necessary 

If you receive an Error 2 message at line 210, you're using 
a DOS other than 2. OS, or you have less than 48K RAM. 

8 
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Lower the number in the DIM statement for Z$. Try DIM 
Z$(18500). Now you'll be able to enter only 400 articles in- 
stead of 500. 

The title (T$) fits on one line (37 characters), so you can 
see just how much room you have for title and comments. If 
you near the end of the line, you can go back and shorten the 
title to fit. If you want to add a comment about an article, and 
if the title is short, you can include it here. If a title begins 
with the words Atari or The, begin with the second word. 
Shorten titles any way that makes sense to you. If you add a 
short comment to series titles, you'll be able to find just the 
right article faster. 

Typing In the Programs 

Atari Bibliography is composed of two programs. Using "The 
Automatic Proofreader" from Appendix C, type in Program 1, 
"Machine Language Sort," written by Ron Marcuse. Save it 
before you run it. Next, type in Program 2, Atari Bibliog- 
raphy, and save it using the filename BIBL.BAS. Each time 
you want to use the program, you must load and run Program 
1. Program 1 will install the machine language, and then load 
and run Program 2 for you. 

Using the Program 

The first time you use the program, you'll, of course, have no 
data saved on disk. You should start entering data by year. 
You'll have nine choices: the first for magazines prior to 1983, 
and then for each year through 1990. Pick the year you want 
to start with and press the corresponding key. The disk drive 
will spin and a new menu will appear indicating that there are 
no records in this file. 

From this menu you can choose to enter data; sort it; 
search by title, source, category, or programming language; 
save the data; load a new data file; or quit the program. At 
this point you'll want to enter data. The maximum number of 
articles permitted for one file is 500. Entering data is as simple 
as following the prompts and answering the questions. Entry 
has been made faster by predefined answers such as a list of 
magazines to pick from. 

Once you have entered all the data, be sure to return to 
the menu and save the data. Now, whenever you want to 
search for an article, just load the year you think the article 
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appeared and search for it. When you search by title, only the 
article title will appear. Press the space bar to see the next title 
or another key to see all the information for the last title. 

After entering a few articles, save the data and experiment 
with the different options; this is the best way to become 
familiar with all the features. 

Program 1 . Machine Language Sort 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

DC 10 REM ATARI BIBLIOGRAPHY 

IP 20 REM PROGRAM 1 

EH 30 REM 

CG 40 REM THIS PROGRAM LOADS AND RUNS 

MB 50 REM PROGRAM 2. 

AJ 60 REM YOU MUST SAVE PROGRAM 2 

BA 70 REM USING THE FILENAME BIBL.BAS 

EH 80 REM 

EN 90 REM 

CK 100 REM MACHINE LANGUAGE SORT UTILITY 

CH110 REM FROM COMPUTE! MARCH 1982 

PI 120 REM REPRINTED IN COMPUTE ! S THIRD BOOK 

F ATARI 
BC 130 REM BY RON MARCUSE 
HJ 140 REM 
NE 800 ? CHR* ( 125) : POSITION 2,10:? "ENTERING M 

ACHINE LANGUAGE...":? "<DOWN> PLEASE WA 

IT" 
HI810 FOR 1 = 1568 TO 1693:READ A:POKE I,A:NEXT 

I 
JE 820 TRAP 840:? CHR* ( 1 25 ) : POS I T I ON 2,10:? "L 

OADING D:BIBL.BAS" 
SP 830 RUN "D:BIBL.BAS" 
CF 840 ? CHR* ( 125) ; CHRt (253) : POSITION 2,10:? " 

BIBL.BAS NOT ON THIS DISK" 
HB 850 ? " {DOWN> INSERT PROPER DISK AND PRESS A 

KEY":POKE 764,255 
OK 860 IF PEEK (764) =255 THEN 860 
EE 870 POKE 764, 255: GOTO 820 

FB 1568 DATA 104,104,133,217,104,133 

FD 1574 DATA 216,104,133,209,104,133 

PH 1580 DATA 208,169,0,133,218,133 

PJ 1586 DATA 207,162,1,165,216,133 

CJ 1592 DATA 214,165,217,133,215,24 — 

FF 1598 DATA 165,214,133,212,101,205 

FA 1604 DATA 133,214,165,215,133,213 

OD 1610 DATA 105,0,133,215,164,203 

CF 1616 DATA 165,206,240,10, 

10 
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OL 
DF 
IK 

FI 
ME 
GB 
CH 
PD 
IE 
GJ 
G? 



1622 
1628 
1634 
1640 
1646 
1652 
1658 
1664 
1670 
1676 
1682 
1688 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



209 
176 
144 
200 
23, 
218 
72, 
145 
232 
207 
209 
218 



, 212 

, 19, 
, 13, 
, 196 
144, 
, 164 
177, 
, 212 
, 224 
,228 
» 197 
, 201 



, 144 
177, 
240, 
, 204 
223, 
205 
212, 
, 192 
,0,2 
, 208 
, 207 
,0,2 



,44,2 
214, 2 
2, 176 
,240, 
169, 1 
,136, 
145, 2 
,0,20 
08,2, 
,208, 
,208, 
08, 14 



40, 12 
09, 212 
, 30 

227, 176 
, 133 
177, 214 
14, 104 
8,241 
230 

172, 165 
166, 165 
4, 96 



Program 2. Atari Bibliography 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

AC 1 REM ATARI BIBLIOGRAPHY 

NB 2 REM SAVE THIS PROGRAM WITH 

CF 3 REM SAVE " D : B I BL . BAS " 

M 4 REM 

CH 10 GOTO 200 



GP 15 



GN 20 



IJ 25 



DA 30 
CN 35 

AG 40 



HG 45 
BO 50 

HE 60 

PA 70 

EF 72 
EL 74 



Z, Zl:FOR C=Z1 TO 



Z10+Z2:? ,CHR*(C+Z 
NEXT C:POKE 



POKE 

64);". " ; D* <C*Z20-Z19, C*Z20) 

Z, Z0:RETURN 
POKE Z,Z1:F0R C=Z1 TO Z10+Z3:? ,CHR*(C+Z 
64);". " ; E* <C*Z20-Z19, C*Z20) : NEXT CzPOKE 

Z, Z0: RETURN 
POKE Z,Z1:F0R C=Z1 TO Zll:? , CHR* < C+Z64 ) 
;". "; F* (C*Z10-Z9, C*Z10) : NEXT CrPOKE Z,Z 
0: RETURN 

N=LEN(Z*) /K: RETURN 

? S*:POSITION Z11,Z10:POKE Z , Z 1 : ? "ONE M 
OMENT PLEASE" : RETURN 

CLOSE #Z2:? :? "<:4 SPACES>TO SCREEN OR E 
RINTER?" ; : GET #Z1,R:IF RO80 THEN OPEN # 
Z2, Z4, Z0, "S: " : POKE Z , Z 1 I P=Z0: RETURN 
TRAP 50:OPEN #Z2 , Z4 , Z0 , " P : " : GOSUB Z35:S= 
Z0: P=Z1 : RETURN 

TRAP X:CLOSE #Z2:? S*:? :? "C5 SPACESJCH 
ECK PRINTER - HIT RETURN":GET #Zl,R:GOTO 

Z40+Z5 
CLOSE #Z2:P0SITI0N Z2,Z20+Z2:? " 
{13 ,.-i-j:ih^>N:I^«] ^UkiMMtlZ aiEH^J " : ? L*;" 
tUP>":FOR C=Z1 TO Z900:NEXT C:GOTO Z700 
E=Z5+Z10: H*=" SOURCE" :B=72:M=77:G0T0 Z100 
-Z10 

IF R*=Bt(Z3,Z3) THEN GOSUB Z112 
RETURN 
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NA 76 


E 




Z 


EH 78 


I 


El 80 


R 


GH 82 


E 







EG 84 


I 


EO 86 


R 


EG 90 


7 




N 




D 


CG 92 


6 




Z 


HP 100 


PB 102 


in 104 


NJ 106 


no 108 


DL 1 10 


OB 112 



ED 114 



1 16 
1 IB 
120 

122 



LF 

ID 



124 
126 



KH 128 



AD 
BD 
LD 
ON 
IB 
IX 
HH 
GD 



130 
132 
134 
136 
138 
140 
142 
144 



Efl 146 



=Z20: H*=" CATEGORY" : B=78 : M=77 : SOTO Z100- 

10 

F B*(Z1,Z1)=R* THEN GOSUB Z112 

ETURN 

= Z20 + Z5:H*= ,, LANGUAGE":B = 84:M = 74:GOTO Zl 

0-Z10 

F B*(Z2,Z2)=R* THEN GOSUB Z112 

ETURN 

S*sGOSUB E:? :? ,"Y. ALL":? :? ,"Z. NO 
E":? :? H*;: INPUT R*:IF R*="Z" THEN GOT 

Z700 
OSUB Z40:IF R*="Y" THEN U=Z1:F0R W=Z64+ 
1 TO M: R*=CHR* (W) : RR=W-Z64 
IF P=Z0 THEN GOSUB 144 
IF Q>0 THEN GOTO Z100+Z8 
GOTO Z40 
GOSUB Z35 

FOR I=Q TO N: B*=Z* ( I*K-J, I*K) : GOSUB B:N 
EXT I: IF U=Z0 THEN GOTO Z30+Z30 
? #Z2: S=S+Z1 : NEXT W:GOTO Z30+Z30 
IF P=Z1 THEN ? #Z2;CHR* < 15) , B* ( Zl 1 ,K> ; : 
GOTO Z100+Z20 

? #2; B* (Zl 1 ,K) : GET #Z 1 , R : L = L + Z 1 : I F L>Z1 
0+Z8 AND R=Z30+Z2 THEN GOSUB 144 
IF R=Z30+Z2 THEN RETURN 
IF R=77 THEN GOTO Z700 

RR=ASC (B* (Z3, Z3) )-Z64:? #Z2;D*(RR*Z20-Z 
19, RR*Z20) 

B* ( Z4, Z5) ; " C3 SP ACES > # " ; B* ( 6 
:IF P=Z1 THEN ? #2;B«(Z8,Z10 
) , : GOTO 126 

? #Z2; B* (Z8, Z10) : L=L+Z1 

RR=ASC (B* (Zl , Zl ) )-Z64:? #Z2;E*(RR*Z20-Z 
19, RR*Z20> ; :L=L+Z2: IF B*(Z2,Z2)=" " THE 
N ? #Z2:G0T0 Z100+Z30 

RR=ASC(B*(Z2,Z2) )-Z64:? #Z2;F*(RR*Z10-Z 
9, RR*Z10) 
IF P=Z0 THEN 136 

S=S+Z1:IF S<Z64-Z2 THEN RETURN 
FOR C=Z1 TO Z4:? #2:NEXT C : S= Z0 : RETURN 
? #Z2:GET #Z1,R:IF R=77 THEN GOTO Z700 
IF R=67 THEN GOTO Z800 
IF L>Z10+Z8 THEN L=Z0:GOSUB 144 
RETURN 

L=Z0:7 S*:POSITION Z2,Z20+Z2:? " 
C5 a J:TH ^1 } aJ:MJ ;T:1 :W JO :« ef :V& m m ** * i I l* 
C5 i.1J:W*l } " 

? " ■cmd^a . ^^:!i<:Vi <:4 gBEtsgg> mcmhe 

C5 aaggsr >N aaaEB^» €UP? " = pn^mnN Z2,z 

0: RETURN 



? # Z 2 ; " 1 9 " 
, 7 ) ; " p . " 
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HN 200 READ Z0 , Z 1 , Z2 , Z 3 , Z4 , Z5 , Z8 , Z9 , Z 1 , Z 1 1 , Z 1 

9,Z20,Z30,Z35,Z40,Z64,Z100,Z112,Z300,Z5 

00,Z600,Z70 0,ZB00,Z900,J,K,Z,X 
CP 205 DATA 0,1,2,3,4,5,8,9,10,11,19,20,30,35, 

40, 64, 100, 112, 300, 500, 600, 700, 800, 900, 4 

6, 47, 752, 40000 
Jh210 DIM Z* (23500) , D* (240) , E* (260) , F* (Z100 + Z 

10) , DD» (ZB) , H* (Z8> , T* (K-Z 10) , S* ( Z 1 ) , Y* ( 

Z10-Z3) , M* (Zl > ,R*(Z3) ,C$(Z2) 
PP215 DIM B* (K> , Q* (K> , A* (K) , L* (Z40-Z4) : L*=" 

CM>":L«(Z40-Z4)=L*:L*(Z2)=L*:S*=" 

{CLEAR} ": OPEN #Z 1 , Z 4 , Z0 , " K : " 
BA 220 ? S*:POKE Z , Z 1 : POS I T I ON Z10,Z10:? "COMP 

UTER BIBLIOBRAPHY" : ? :? :? , " BY DANA N 

QONAN" 
Ed 222 POSITION 2,20:? "COPYRIGHT COMPUTE! PUB 

LICATIONS, INC. " 
OH 225 POKE 203,Z10:POKE 204,J:POKE 205,K:POKE 

206, Z0 
m 230 D*=" " : D* (240) =D*: D* (Z2) =D*: FOR I=Z1 TO 
Z10+Z2:READ B*:D*(I*Z20-Z19, I*Z20) =B*>: 

B*="":NEXT I 
NF 235 E*=" " :E* (260)=E*:E* (Z2)=E»: FOR I = Z1 TO 
Z10+Z3:READ B*:E*(I*Z20-Z19, I*Z20)=B*: 

B*=" ":NEXT I 
OH 240 F*=" " :F* < 1 10) =F*:F* (Z2) =F*: FOR I = Z1 TO 
Z11:READ B*:F*(I*Z10-Z9, I*Z10)=B*:B*=" 

":NEXT I 
EK 245 Z*="":DD*="D: BIB.D ":? S*:? "{DOWN} CO 

MPUTEI'S ATARI B I BL I OGRAPHY {DOWN} " 
HA 246 ? , "1. BEFORE 1983":? ,"2. 1983":? ,"3. 

1984" 
HP 247 ? ,"4. 1985":? ,"5. 1986":? ,"6. 1987" 
FC 248 ? ,"7. 1988":? ,"B. 1989":? ,"9. 1990": 

POKE Z,Z0 
01250 ? "{DOWN} ENTER THE NUMBER OF YOU CHOI 

CE?";:GET #1,R:? CHR*(R):IF R<49 OR R>5 

7 THEN ? CHR* (253) : GOTO 245 
ftK 260 DD* (Z8, Z8) = CHR* (R) : F=Z0: GOSUB Z30:GOSUB 
Z35:TRAP Z300-Z30 : CLOSE #Z2:OPEN #Z2,Z 

4, Z0, DD* 
BO 265 FOR I=Z1 TO 1500: INPUT #Z2 ; B* : Z* ( LEN ( Z* 

) +Z1 ) =B*: NEXT I 
OH 270 TRAP X:CLOSE #Z2:G0T0 Z300 
CL 280 ? S*:? " {DOWN} CTAB>SAVE ";DD$;" (Y/N)?" 

;:GET #Z1,R:IF R=89 THEN GOTO Z300-Z10 
10 282 ? :? , "RETURN TO MENU ( Y/N ) " ; : I NPUT R*: 

IF R*<>"N" THEN GOTO Z300 
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IN 284 



JI 290 



HH 295 
FP 300 



FB 305 

JC 310 

KH 315 
NE 350 
EH 352 



FA 354 
6H 360 

DD 365 



AI 370 


GB 375 


DI 380 


m 385 


EQ 390 


EF 395 


FL 400 


MI 405 



OF 4 10 



AE 412 



? :? "SAVE FILE ("; DD* ;")";: I NPUT DD*:I 

F DD*="" OR LEN(DD*XZ8 THEN ? " €2 UP>" 

:SOTO 284 

GOSUB Z35:CL0SE #Z2:0PEN #Z2 , ZB , Z0 , DD* : 

FDR I=Z1 TO N:? # Z2 ; Z* ( I *K- J , I *K ) : NEXT 

I:CLOSE #Z2:G0T0 Z300 

END 

? S*:? ," EnSOBSM^BSMM " : GOSUB Z30:? :? 

," ";N;" RECORDS":? :? :? ,"1. ENTER 
DATA":? :? ,"2. SORT DATA" 
? :? ,"3. RETRIEVE DATA":? :? ,"4. SAVE 

DATA":? :? ,"5. LOAD NEW FILE(MAIN MEN 
U) " :? : ? , "6. QUIT" 

POKE Z,Z0:? :? , " CHO I CE? " ; : GET #1,R:IF 
R<49 OR R>54 THEN ? "{BELLX2 UP>":GOTO 

310 
R=R-48:0N R GOTO 350 , Z500 , Z 700 , 280 , 245 , 
Z300-Z5 
? S*:GOSUB Z30:IF N=Z500 THEN ? ,DDD*;" 

FULL":FOR 1=1 TO Z900:NEXT I : GOTO Z300 
B*="":POKE Z,Z0:? "TITLE (TYPE r?TTC TO Q 
UIT)":INPUT T*:? :IF T*="" OR LEN(T*)>Z 
40-Z3 THEN 350 

IF T*="END" THEN GOTO Z300 
IF LEN (T*XZ40-Z3 THEN T* ( LEN ( T* ) +Z 1 ) = " 

":GOTO 360 
IF F=Z1 THEN ? :? "SAME ISSUE = RETURN 
- OTHER = ANY KEY":GET #Z1,R:IF R=155 T 
HEN Y*=Y* (Zl , Z4) : GOTO 390 
GOSUB Z5+Z10:? 

? "SOURCE" ;: INPUT M*:IF ASC(M*)>76 OR A 
SC (M*) <Z64-Z1 THEN ? "CBELLX2 UP>":GOT 
375 

Y*="":? :? "LAST 2 DIGITS OF YEAR";:INP 
UT R*: Y* (Zl , Z2) =R* 

? :? "MONTH/ISSUE ";:INPUT R*:Y*(LEN(Y* 
> +Z1 ) =R*:F=Z1 : IF LEN(Y*)<Z4 THEN Y*(LEN 
(Y*)+Z1)=" " 

? :? "PAGE" ;: INPUT R* : Y* ( LEN ( Y* ) +Z 1 ) =R* 
IF LEN(Y*)<7 THEN Y* ( LEN ( Y* ) +Z 1 ) = " " : GO 
TO 395 

? S*:GOSUB Z20:C*="<:3 SPACES>":? 
? "CATEGORY" ;: INPUT R* : C* ( Z 1 , Z 1 ) =R* : I F 
ASC(R*)>77 OR ASC(R*)<65 THEN ? "CBELL> 
€2 UP>":GOTO 405 

? S*:GOSUB Z20+Z5:? :? " LANGUAGE ";: I NPU 
T R*:IF R*="" THEN C*(Z2,Z2)=" " : GOTO 4 
20 

IF ASC(R*)>75 OR ASC(R*)<65 THEN PRINT 
CHR* (253) : GOTO 410 
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EJ 415 C* (Z2, Z2) =R* 

DI420 A*="":A*(LEN(A*)+Z1)=C*:A*(LEN(A*)+Z1)= 

M*:A*(LEN(A*)+Z1)=Y*:A*(LEN(A*)+Z1)=T«: 

Z* (LEN(Z*) +Z1 ) =A* 
NH430 POKE Z,Z1:? : ? , " EONTINUE DR EENU":GET 
#Zl,RiIF R<>67 AND R<>77 THEN ? " 

<BELL> " : GOTO Z430 
CH 435 IF R = 67 THEN GOTO 350 
HJ 440 IF R = 77 THEN GOTO Z300 
CP 500 GOSUB Z35: IF N>Z1 THEN A = USR ( 1 56G , ADR ( Z 

*) , N) : GOTO Z300 
CB 600 IF ASC (TJXZ64 + Z1 THEN Q = Zl:GOTO Z100 
BI 605 Q = N: Q=INT (Q/Z2) : Q*="" : R = N: GOTO Z600 + Z20 
KP610 Q* = B* 

FC615 IF Q=Z0 THEN RETURN 
PK 620 B*=Z* (Q*K-J, Q*K> : IF B* = Q* THEN Q = Q-Z1:R 

ETURN 
AI 625 IF B* (Zl 1 , TT) =A* (Zl 1 , TT) THEN Q = Q-Zl:GO 

TO Z600+Z40 
FL 630 IF B*(Z1 1,TT) >A*(Z1 1 , TT) THEN R = Q:Q=INT 

(Q/Z2):G0T0 Z600+Z10 
KB 635 IF B* (Zl 1 , TTXA* (Zl 1 , TT) THEN M=(R-Q)/Z 

2:Q=INT (Q+M) : GOTO Z600+Z10 
OA 640 B*=Z* (Q*K-J, Q*K) : IF B* ( Z 1 1 , TT ) =A* ( Z 1 1 , T 

T) THEN Q=Q-Zl:GOTO Z600+Z40 
HP 645 RETURN 

LC 700 U = Z0:? S*:? " C5 SPACES>YOU CAN RETRIEVE 
ARTICLES BY:":? :? , "1. ALL ARTICLES" 
DK 705 ? :? ,"2. TITLE":? :? ,"3. SOURCE" 
DB710 ? :? ,"4. CATEGORIES":? :? ,"5. LANGU 

AGE":? :? ,"6. MAIN MENU" 
PJ715 POKE Z, Z0: POSITION Z10.15:? "YOUR CHOIC 

E?";:GET #Z1,R:? CHR*(R):IF R<49 OR R>5 

4 THEN ? "CBELL><:4 UP>":GOTO 715 

HP 720 Q=Z1: L=Z0:S = Z0: GOSUB Z20 + Z 1 : R = R-48 : ON 

R GOTO Z700+Z30, Z700+Z40, 70, 76, 02, Z300 
BE 730 ? :GOSUB Z40:GOSUB 144:F0R I = Z1 TO N:B* 

=Z* ( I*K-J, I*K) : GOSUB Z112:NEXT I : GOTO Z 

30+Z30 
IH 740 ? :? "TITLE" ;: INPUT T*:IF T*="" THEN ? 

"{BELLX2 UPJ":GOTO Z700 + Z40 
NO 745 TT = LEN (T*) +Z10: A*= At ( K ) =A* : A* ( 2 ) =A* 

: A* (Zl 1 , TT) =T*: GOSUB Z40 : B=750 : GOSUB Z6 

00:GOTO Z100 
JC 750 IF B* (Zl 1 , TT) =A* (Zl 1 , TT) THEN GOSUB Zll 

2 
AI 755 IF B* (Zl 1 , TT) >A* (Zl 1 , TT) THEN GOTO Z30 + 

Z30 
HN 760 RETURN 
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HI 800 


NH 805 


HG 810 


DA 815 


OH 820 


H8 825 


CI 830 


DO 835 


IB 840 


H6 845 


ON 850 


KH 855 


CE 860 



865 



AH 870 


NH 880 


KD 890 


OE 900 


BC 905 


PE 9 10 


GH 9 15 


BE 920 


HE 925 


GC 930 



? S*," £3 SPACES } EIECM^MIDCE" : ? :? L* 
? B* <Z1 1 , K) :H = ASC (B*(Z11,Z11) ) : RR=ASC (B 
* (Z3, Z3) > -Z64: ? D*(RR*Z20-Z19,RR*Z20) ; 
? "19"; B* <Z4, Z5) ; "C3 SPACES } # " ; B* ( 6 , 7 ) ; 

p. " ; B* <Z8, Z10) 
RR = ASC (B* (Zl , Zl ) )-Z64:? E*(RR*Z20-Z19,R 
R*Z20) ; 

IF B*(Z2,Z2)=" " THEN GOTO Z800+Z30 
RR=ASC(B*(Z2, Z2> ) -Z64:? F* ( RR * Z 1 0-Z9 , RR 
*Z10) 

? :? L*:? "£D0WN>£4 SPACES } EHANGE OR SE 
LETE OR EENU" ; 

GET #Z1,R:IF ROZ64 + Z3 AND ROZ64 + Z4 AN 
D R<>77 THEN ? "<:3 UP>":GOTO Z800+Z35 
IF R=77 THEN GOTO Z700 

IF R=Z64+Z3 THEN ? "<2 UP>":GOTO Z900-Z 
40 

? :? , "DELETE ITEM (Y/N)?";:GET #Z1,R:I 
F R<>89 THEN GOTO Z700 

Z*<I*K-J,LEN(Z*))=Z*((I+Zl)*K-J,LEN(Zt) 
) : Z*=Z* (Zl , LEN (Z*) -K) : GOTO Z700 
? :? ," 1. TITLECB SPACES}":? ," 2. S 
OURCE":? ," 3. YEAR":? ," 4. ISSUE":? 

," 5. PAGE":? ," 6. CATEGORY" 
? ," 7. LANGUAGE":? , " 8. NO CHANGE": 
? :? ,"YOUR CHOICE?" ; :GET # Z 1 , R : R=R-48 : 
? 

ON R GOTO Z900-Z20, Z900+Z5, Z900+Z10, Z90 

0+15.Z900+Z20, Z 900+25, Z900+Z30.Z700 

? :? "TITLE" : INPUT T*:IF LEN ( T* ) >Z40- Z3 

THEN ? " iZ UP>":GOTO Z900-Z20 
IF LEN(T*)<37 THEN T* ( LEN ( T* ) +Z 1 ) = " ":G 
OTO Z900-Z10 

GOSUB Z35:B*<Z11,K)=T*:Z*<I*K-J, I*K)=B* 
:GOTO Z800 

? S*;:GOSUB Z30:? :? " MAGAZ I NE " ; : I NPUT 
M*:B*(Z3,Z3)=M*(Z1) :GOTO Z900+Z35 
TRAP X:TRAP Z900+Z10:? :? "YEAR (2):";: 
INPUT Y*: B* (Z4, Z5) =Y* (Zl , Z2) : GOTO Z900+ 
Z35 

TRAP X:TRAP 915:? :? "ISSUE (2):";:INPU 
T Y«: B* (6, 7) =Y* (Zl , Z2) : GOTO Z900+Z35 
TRAP X:TRAP Z900+Z20:? :? "PAGE (3):";: 
INPUT Y«: B* (Z8, Z10) =Y* (Zl , Z3) : GOTO Z900 
+ Z35 

? S*;:GOSUB Z20:? :? " CATEGORY ";: I NPUT 
C*:B*(Z1, Z1)=C*(Z1, Zl) :GOTO Z900+Z35 
? S*;:GOSUB Z20+Z5:? :? " LANGUAGE ";: I NP 
UT C*: B* (Z2, Z2) =Ct (Zl , Zl ) : GOTO Z900+Z35 
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JH 935 Z* ( I*K-J, I*K> = B*: GOTO Z800 

DL 1000 DATA ACE, ANALOG, ANTIC, ATARI CONNECTION 

.BYTE, COMPUTE! .CREATIVE COMPUTING, MICR 

0, MICROCOMPUTING, SOFTLINE 
AP 1010 DATA SOFTSIDE, OTHER SOURCES 
FO1100 DATA ADVENTURE, ARCADE GAME, WORD GAME,0 

THER GAME, EDUCATION, UTILITY, SOUND DEMO 

.GRAPHICS DEMO 
SB 1110 DATA GRAPHICS/SOUND DEMO, ML DEMO,APPLI 

CATION, REVIEW, OTHER 
65 1200 DATA B AS I C , BAS I C-ML , M I CROSOFT , ML , FORTH 

.PILOT, PASCAL, LOGO, LISP, VISICALC, OTHER 
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Personal Net Worth 
Statement 



John L. Nuss 



"Personal Net Worth Statement" will calculate your net worth 
easily and quickly. The built-in editing functions permit easy 
changes in any entry. And since the data is saved as part of the 
program, it will work with tape or disk. 

Financial advisors recommend the practice of calculating your 
personal net worth annually or even more frequently if pos- 
sible. Doing so enables you to measure the extent to which 
you are attaining your savings goals for retirement or other 
purposes. It can also be helpful for estate planning. 

This program allows you to calculate your net worth with 
relative ease. It also summarizes your holdings by categories 
which you have set up. This should allow you to determine if 
the mix of your investments is in line with the investment 
strategy you have set. Best of all is the ease with which you 
can update your financial data by using an onscreen editing 
technique. 

Changing Categories 

Type in the program as listed except for any changes or addi- 
tions you might want to make to the DATA statements which 
contain the category names. Remember that you're limited to 
one category for each letter of the alphabet, so you may need 
some imagination to come up with meaningful category 
descriptions. The program as written allows for only 17 cate- 
gories, because 1 7 is all that will fit on one screen of the selec- 
tion menu or the net worth statement. You could change this 
by providing for a second page for these screens, but since 17 
categories are probably more than adequate, no change should 
be required. 

When running the program, you'll first be asked for the 
current date. The program accepts only numerals for the date 
input and expects to see two digits for each item (month, day, 
and year), so you should preface single-digit months and dates 
with a zero. After receiving an acceptable date, the program 
will present a menu of possible routines. All that's required is 
a one-key response, since I tried to minimize the need for the 
RETURN key as much as possible. 
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Type 1 to begin entering your assets and liabilities. You 
will be presented with the category menu from which to se- 
lect. Type the first letter of your category choice. The data 
entry/edit screen will then appear for that category. Type the 
description of your first entry and hit RETURN. An item num- 
ber and category letter will appear in the REF column, and the 
description will appear in the description column as entered. 
You will then be prompted to enter the value and valuation 
date in the same manner. The valuation date default is the 
current date, so just hit RETURN if that is satisfactory. 

Liabilities (debts) should be entered as negative numbers. 
For instance, you might enter the market value of your car or 
home as an asset and the balance of your auto loan or mort- 
gage as a liability. When you have made all the entries for a 
category, just hit RETURN and you'll be offered the choice of 
either going to another category or returning to the main 
menu. Note that because of the amount of room on the 
screen, you are limited to 13 entries per category. 

Editing 

If you make an error on an entry or if you later wish to 
change an amount or description, you need only move the 
cursor to that item, edit it, and hit RETURN. The correspond- 
ing DATA statement will be revised without disturbing any 
other items on the screen. A minor drawback is that you can- 
not completely delete items in this manner. However, the 
value of an item can be set to 0, thereby effectively eliminat- 
ing it. Or both the value and description can be changed, 
which, in effect, will replace it with a new item. 

There is also the option to delete all your entries. This 
routine can be accessed from the main menu. 

After entering your assets and liabilities, you can review 
your net worth by requesting the proper routine from the 
menu screen. The program will then total your entries and dis- 
play your net worth by category as well as give an overall to- 
tal. The proportional relationship of each category to the total 
is also displayed as a percentage. 

Personal Net Worth Statement 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PD110 OPEN «2, 12, 0, "E: " 

JB 120 DIM P* (0) , R* (2) , X (2) 
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Aft 130 READ P 

CF 140 READ P* 

CH150 GDSUB 350:REM - GOTO SCREEN CLEAR & TIT 

LE ROUTINE 
HL 160 CONT 

6N 1B0 TRAP 180:CLOSE #1 
OL 190 POSITION 2,6:? "What is today's date (M 

M/DD/YY)?" 
Nft 200 GOSUB 550:REM - GOTO DATE ENTERING ROUT 

INE 
CH210 FOR 1 = 1 TO 100:NEXT I 
ftfl 220 DIM CAT*(20> ,C*(1> ,D* (13) , V* (9) ,DT* (B> , 

S*(38) , A* (9) , CM* (1) , I* (38) , V (26) , PC (26) 
IN 230 S*="C3B SPACES}" 
PH 240 CM*=" , " 
hB 250 R* = St 
EI 260 CAT* = S* 
LE 270 C* = S* 
L6 280 D* = S* 
HJ 290 V* = S* 
ftD 300 DT* = S* 
KN310 A* = S* 
LG 320 I* = S* 

ON 330 GOTO 660:REM - GOTO TO MAIN MENU 
IL 340 DATA 0,00/00/00 
PB 350 GRAPHICS 0:SETCOLOR 2 , 1 1 , : SETCOLOR 4,1 

1,0:SETCOLOR 1, 10, 10-.PQKE 752,1 
CO 360 ? "* NET WORTH STATEMENT AS OF ";Pt;" * 

€DOWN> " : RETURN 
IC 370 REM - DOLLAR AND CENTS FORMAT 
Hfl 380 IF ABS (A) >999999 THEN A *=STR* ( A ) : RETURN 
BB 390 A*="C6 SPACES>. " : B = 7-LEN ( STR* ( I NT ( A ) ) 

) +(A<0> 
PF 400 IF A<0 THEN A = -A : A* ( B- 1 , B- 1 ) = " - " 
BH410 A* (B, 6) =STR* ( INT (A) ) 
Hft420 A*(7,9)=STR*(100+INT((A-INT(A))*100+0.0 

5) ) 
J6 430 A* (7, 7) =" . " 
EH 440 IF VAL(A*)<0 THEN A = -A 
HJ 450 RETURN 
ftl 460 REM - FORCED READ ROUTINE PART 1 

DN 470 POSITION 2,18:? "C6 DEL LINE>" — . 

PD 480 POSITION 2,19:RETURN 

Ah 490 REM - FORCED READ ROUTINE PART 2 
Eh 500 ? "CONT" 
NC 510 POSITION 2, 18 
HE 520 POKE 842, 13: STOP 

BC 530 POKE 842,12:G0SUB 460:RETURN 
6h 540 REM - ENTER DATE ROUTINE 
PL550 OPEN #1 ,4,0, "K" : POKE 752,1 
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LF 560 POSITION 24,8:? "M/n/JHT 

PL 570 P*=" / / ":TRAP 650 

IK 580 FOR 1 = 1 TO 6 : J - I + ( I >2 ) + ( I >4 ) 

OK 590 IF PEEK (764) =255 THEN 590 

PE 600 GET #1 , X: P* < J, J) = CHR* (X) 

JD610 IF X<48 OR X >57 THEN 650 

80 620 POSITION 23+J,8:? CHR* ( X > 

CB 630 NEXT I 

HO 640 CLOSE Wis RETURN 

JG 650 POP :GOTO 180 

LE 660 GOSUB 350 

HE 670 CLOSE #1:TRAP 660 

KC 680 POSITION 5,3:? "Please choose 

e -following:" 
CB 690 POSITION 10,5:? "1 

ata{4 SPACES}" 
KD 700 POSITION 10,7:? "2 

<9 SPACES}" 
HB710 POSITION 10,9:? "3 



one o-f th 

- Update or Review D 

- Net Worth Report 

- Store Data and End 



IF 720 
NH 730 

JI 740 
OS 750 
NL 760 
0C 770 
HE 780 
10 790 
LA 800 
GH 810 
IH 820 
III 830 
HH 840 
HO 850 
HC 860 
JH 870 
OP 880 
KP 890 
IC 900 

FJ 910 
FN 920 
IK 930 
E6 940 
JP 950 
KC 960 
LF 970 
JN 980 
HN 990 



POSI 

POSI 

?" 

OPEN 

IF P 

GET 

ON O 

GOTO 

REM 

GOSU 

POSI 

TRAP 

READ 

1 = 1 + 

POSI 

GOTO 

OPEN 

IF P 

GET 

POSI 

C = } 

COLO 

COLO 

COLO 

PLOT 

PLOT 

PLOT 

PLOT 

REST 

1 = 1 + 



TION 10,11:? "4 - 
TION 5, 15: ? "What 



Erase Data" 

is your selection 



• If 

EEK ( 

#1,0 

P GO 

660 

-UPD 

B 35 

TION 

870 

CAT 

1 

TION 

830 

#1, 

EEK ( 

#1 , X 

TION 

VAL 

R 14 

R 13 

R 12 

6, 3 

20, 

30, 

39, 

ORE 

1 



4,0, " K " 

764)=255 THEN 750 

P: OP=VAL (CHR* (OP) ) :CLOSE 

SUB 790,1590,1880,2020 



#1 



ATE DATA 


2,3:? "WHICH 
:RESTORE 8010: 
*: IF CAT*="r5" 



CATEGORY?' 

1=0 

THEN 870 



7,5+1 



: ? 



CAT*; 



4,0, " K " 

756)=255 THEN 880 

:CLOSE #l:GOSUB 350 

1,2:? "{=}REF {=} DESCRIPTION 
UE £ = } DATE {=}" 
:PLOT l,l:DRAWTO 39,1 
:PLOT 2,3:DRAWT0 38,3 
4:PL0T 1,2:DRAWT0 1,17 
: DRAWTO 6,17 
3: DRAWTO 20, 17 
3: DRAWTO 30, 17 
2: DRAWTO 39, 18 
9000: 1=0: J=0: T=0: TRAP 1100 
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DO 1000 


J = J + 1 


GH 1010 


READ C*,D*,V 


PA 1020 


IF C*="r=" TH 


f<0 1030 


IF C*OCHR*( 


PI 1040 


POSITION 2+( 


CD 1050 


POSITION 5,3 


CH 1060 


POSITION 7,3 


GG 1070 


POSITION 21, 


a 1080 


POSITION 31, 


KF 1090 


SOTO 990 


LA 1 100 


REM - DATA U 


HP 1110 


POKE 752, 1 : C 




9, 18: PLOT 39 


OH 1 120 


TRAP 1220:RE 


FO 1 130 


READ CAT*: IF 




50 


HE 1140 


SOTO 1130 


FP 1 150 


POSITION 2, 1 




" TOTAL" 


JO 1 160 


A=0: RESTORE 


LE 1 170 


READ C*: IF C 


OA 1175 


READ D*,V*,D 


GO 1 180 


IF C*=CHR*(X 


HN 1 190 


GOTO 1170 


NN 1200 


GOSUB 370 


AO 1210 


POSITION 21, 


DA 1220 


TRAP 1220:PO 


CD 1230 


? "TYPE DESC 




E CURSOR TO 




N. £14 SPACES 


FI 1240 


POSITION 1,2 


HF 1250 


OPEN #1,4,0, 


6K 1260 


GET #l,R:CLO 


GK 1270 


IF (R>64 AND 


GA 1280 


IF (R<28 AND 


KO 1290 


INPUT #2, I*: 


NF 1300 


R = VAL ( It ( 1 , 3 


PD 1310 


D*=I* (6, 18) 


DD 1320 


V*=I* (20, 28) 


HH 1330 


DT*=I* (30, 37 


LO 1340 


C*=I* (4, 4) 


OE 1350 


GOSUB 470 


JB 1360 


? "<D0WNJ";9 




M*; V*; CM*; DT 


HG 1370 


GOTO 1100 


MB 1380 


POSITION 2,2 




HR* (R) 


FO 1385 


IF I>13 THEN 




<.z ui-j-.Wz&yrzw, 




E3B" ; : GOTO 1 



*, DT* 

EN 1100 

X) THEN 1000 

J< 100) + ( J< 10) , 3+1 : ? J 

+1 : ? C* 

+ 1 : ? D* 

3+1:? V* 

3+1:? DT* 

PDATE 

OLOR 13:PL0T 1,18:DRAWT0 3 
,18 

STORE 8010 
CAT* ( 1 , 1 ) =CHR* (X) THEN 11 



7:? CAT*: POSITION 31,17:? 

9001 

*="[!" THEN 1200 

T* 

) THEN A=A+VAL(V*> 



17: 

SIT 

RIP 

ED 

> {.= 

2: P 

"K" 

SE 

R< 

R> 

POK 

) ) 



? A* 

ION 2,20 

TION OF NEW ITEM OR MOV 

IT AN ITEM ON THE SCREE 

>hit ■:i^<ii:a :■■<: = >" 

OKE 752,0:? " "; 

#1 : IF R=155 THEN 
91) THEN 1380 
31) THEN 1150 
E 752, 1 



1530 



000+R; " DATA " ; C* ; CM* ; D* ; C 
*: GOSUB 500 

2:PUT #2, R: D*=S*: D* ( 1 , 1 ) =C 

POSITION 2,19:? " 

100 



"! 



HO MORE ROOK IN THI5 CATEGO 
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Kfl 1390 FOR K = 2 TO 13:GET #2,R:IF R=155 THEN P 

OP :GOTO 1410 
OF 1400 D* (K, K) =CHR* (R> : NEXT K 
EL 1410 TRAP 1410:GOSUB 15B0 
KH 1420 R = P+1 s POSITION 2+ ( R< 1 00 ) + ( R< 1 ) , I + 3 : ? 

R; CHR4 (X) ; 
CI 1430 POSITION 7,1+3:? D* 
BB 1440 POSITION 2,20:? "ENTER VALUE : " ; : I NPUT 

#2,A:G0SUB 370:V*=A* 
61 1450 POSITION 21,1+3:? V* 
JD 1460 GOSUB 15B0: POSITION 2,20:? "ENTER VALU 

ATION DATE ( MM/DD/ Y Y ) : " ; : I NPUT #2,DT* 
DE 1470 IF DT*="" THEN DT*=P* 
KO 1480 POSITION 31,1+3:? DT* 
CF 1490 P = P+1 : 1 = 1 + 1 : POKE 752,1:G0SUB 470 
NO 1500 ? " £DOWN> " ; 9000 + P; " DATA " ; CHR* ( X ) ; CM* 

; D*; CM*; V*; CM*; DT*: GOSUB 500 
PO1510 POSITION 2,22 
DC 1520 IF K14 THEN 1100 
CN 1530 GOSUB 1 580 : POS I T I ON 2,20:? "PRESS M&MM 

H3I TO CHANGE CATEGORIES. " 
LO 1540 POSITION 2,22:? "PRESS BEGSE-IIB WHEN A 

LL DATA ENTERED. " 
BD 1550 IF PEEK (53279) =5 THEN 800 
FK 1560 IF PEEK (53279) =3 THEN RETURN 
NB 1570 GOTO 1550 
KO 1580 POKE 752, 1 : POSITION 2,20:? " 

<4 DEL LINE> ": RETURN 
IK 1590 REM - NET WORTH CALCULATION 
NP 1600 GOSUB 350 

JN 1610 FOR 1=0 TO 26: V ( I ) =0: PC ( I ) =0: NEXT I 
LH 1620 RESTORE 9001 

MB 1630 READ C*:IF C*="tl" THEN 1680 
OB 1635 READ D*,V*,DT* 
HB 1640 C = ASC(C*)-64 
LG 1650 V (C) =V (C) +VAL (V*> 
JB 1660 V (0) =V (0) +VAL (V*) 
NB 1670 GOTO 1630 
BB 1680 POSITION 4,2:? " CATEGORY ( 1 2 SPACES>AMOU 

NTt3 SPACES>PERCENT" ; 
KN 1690 RESTORE 8010: 1=0 
HI 1700 TRAP 1800 

OE 1710 READ CAT*: IF CAT4="tl" THEN 1800 
OE 1720 C = ASC (CAT* ( 1 , 1 ) ) -64 
CC 1730 I = I + 1:IF I>16 THEN STOP 
LL 1740 POSITION 2,3+1:? CAT* 
IJ 1750 A = V(C):GOSUB 370 
JD 1760 POSITION 22,3+1:? A*; 
BK 1770 PC (C) =INT ( 100*V (C) /V (0) ) 
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KO 1780 



ND 


1790 


HG 


1800 


(ID 


1810 


FH 


1820 


KO 


1830 


OK 


1840 


AK 


1850 


IJ 


1860 


Lfl 


1870 


OJ 


1880 


ND 


1890 


GK 


1900 


GO 


1910 


OG 


1920 


se 


1930 


OD 


1940 


PH 


1950 



CL 1960 



NL 1970 


KL 1980 


EF 1990 


DL 2000 


PN 2010 


PP 2020 


NN 2030 


OF 2040 


HE 2050 


DP 2060 


HP 2070 


CD 2080 


AM 2090 


HA 2100 


NO 2 1 1 


HI 2120 


NL 2130 


CO 2140 


JS 2150 


KJ 2160 


LP 8000 



POSITION 34+(PC(CX100) + (PC(C)<10) ,3+1 

: ? P C ( C ) ; " 7. " ; 

GOTO 1710 

POSITION 7,5+1:? "TOTAL"; 

A = V (0) :GOSUB 370 

POSITION 22,5+1:? A* 

PC (0) =100 

POSITION 34,5+1:? PC (0) ;"■/."; 

POSITION 2,22:? "PRESS KHSEEgHIB TO RES 

UME. " 

IF PEEK (53279) <>3 THEN I860 

RETURN 

BOSUB 350 

? "SAVE PROGRAM AND DATA FOR NEXT SESS 

ION" 

POSITION 5,5:? "1. TURN OVER TAPE AND 

REWIND. " 
POSITION 5,7:? " {5 SPACES} SAV I NG COUNT 
AND DATE. . . " 
GOSUB 460 

? " {DOWN} "; 340; " DATA ";P;CM*;P* 
GOSUB 500 
POSITION 5,7:? "2. PRESS ■3^33331 AND 

WEBSBM . " 
POSITION 5,9:? "3. PRESS ■331113311 AFT 
ER BUZZERC11 SPACES}RINGS TWICE." 
TRAP 1990 
LPRINT 
CSAVE 

POSITION 5,12:? "4. REWIND TAPE." 
POKE 752,0:END 

REM - OBSOLETE DATA DELETE 
GOSUB 350 
POSITION 2,10:? "Do you REALLY want to 

erase your data?" 
OPEN #1,4,0, "K" 
IF PEEK (756) =255 THEN 2060 
GET #l,R:CLOSE #1 
IF CHR*(RX>"Y" THEN RETURN 
POSITION 2,10:? S*, "ERASING DATA..." 
FOR LINE=9001 TO 9000+P 
GOSUB 460 
? " CDOWN} "; LINE 
GOSUB 500 
NEXT LINE 

P = 0: GOSUB 460:? " {DOWN} "; 340; " DATA "; 
P; CM*; P*:GOSUB 500 
RETURN 
REM -CATEGORIES 
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FJ8010 DATA BONDS 

AD B020 DATA CASH 

EO B030 DATA EQUITIES 

PJ B040 DATA FIXED TERM DEPOSITS 

6J B050 DATA OTHER 

NB B060 DATA PERSONAL PROPERTY 

ND B070 DATA REAL ESTATE 

LJ B990 DATA rj 

LK 9990 DATA SI 

HI 10000 END 
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Data Management 
System 

An Atari Database with Application 
Generation Features 



Ronald Marcuse 



This generic database system can be used for many applications. 
The next article, "Mailing Label Utility," is an example of its 
adaptability. Requires 32K RAM and a disk drive. 

My initial excursion into the world of microcomputers began 
soon after I purchased my Atari 800. It took perhaps a month 
for my data processing (meaning file processing) background 
to emerge from the myriad of games that I was coding and 
playing on the Atari, but this was inevitable. Don't misunder- 
stand me — the games are fun, but I personally wanted more 
from the computer than just zapping Zylon Raiders or hitting 
a quarter-inch baseball across a 25 -inch screen. 

In the ensuing month, information processing systems 
materialized in all shapes and sizes, covering such important 
data as telephones/addresses, appointments, and the Star 
Wars figure collection of my offspring (which turned out to be 
the largest of my numerous files). When I saw myself coding a 
catalog system to keep track of all the other catalog/ 
information systems, I vowed to find a better way. 

This leads us to the subject of the article — an Atari data 
management/database system. There is a great deal of similar- 
ity between different systems that are designed to track dif- 
ferent data; in fact, the similarities usually far outweigh the 
differences. The variance in file/record attributes doesn't re- 
quire a markedly different approach in getting to and from the 
storage medium. If you were to store these file/record 
attributes in, say, a data dictionary, you could use the dic- 
tionary to supply the parameters to drive generalized file/ 
screen/printer IO routines. You'd need only to specify the 
attributes to generate the application. An information system 
needed to track paper clips could be implemented in minutes. 
That, in a nutshell, is the concept. 
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The Dictionary 

The data dictionary function, as the front-seat driver of the en- 
tire vehicle, deserves clarification first. Its primary function is 
to create and monitor the individual dictionary records contain- 
ing the attributes of the database on that particular disk. Within 
this scheme, the ADD logic resides in lines 8000-8630, the IN- 
DEX begins at line 6500 and continues with the subroutine in 
9200-9320, the INQUIRY or LIST is in lines 7000-7080, and 
the DELETE in 7500-7640. Subroutines shared by one or 
more of these modules are PAUSE, 6300; CREATE FILESPEC, 
6310-6320; PRINT DIC RECORD, 8750-8870; LOAD VARI- 
ABLES FROM DIC RECORD, 9000-9050; and READ DIC 
RECORD, 9200-9320. Additionally, located from 9801 to 9846 
are short subroutines of the variety GOSUB NNNN + I utilized 
in moving headers and data elements to and from larger strings. 
Tables 1 and 2 list the format of the dictionary record (REC$) 
and other variables. 

In operation, when you're creating a new application/ 
database, you would specify a title (25 characters maximum), 
data set name (8 chararacters maximum), and the number of 
data elements (6 maximum) within the proposed record. A 
loop (lines 8110-8200) would step you through the process of 
entering the heading (12 characters), size (30 maximum), and 
editing requirements of each data element. 

Editing criteria of N (Numeric), D (Date), and $ (Dollar) 
may be requested. I've imposed a nominal limit of six data 
elements with 30 characters maximum for any one element 
and a total record length of 120 bytes (for no other reason 
than I happened to like those numbers on that day). If the 
data dictionary has not been initialized on the disk, you'll be 
prompted during the add routine for permission to create it 
(lines 8610-8630). 

There is a conspicuous absence of any UPDATE functions 
on the data dictionary menu. This was intentional. Changing 
the attributes of a given database after it has been created and 
fed huge mounds of raw data may be detrimental to your 
health. (Picture the File Manager going after a 50-byte record 
that it now believes is 80 bytes long.) 
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The Manager 

The File Management system, with its menu residing in lines 
500-670, requires that the operator first select one of the 
databases on that disk (lines 750-886); an index is made avail- 
able by entering a single character I. The selection process 
reads the data dictionary file and, upon finding your request 
(filename is the key), moves the dictionary record into the ap- 
plicable variables. Once loaded, these variables control the 
execution of the other File Management modules. These are 
ADD RECORD (lines 1000-1200), LIST RECORD/INQUIRY 
(2000-2440), and UPDATE RECORD (3000-3310). Note that 
typing E on any function menu will return program control to 
the module one step higher in the network. Tables 1 and 2 list 
the variables used in these procedures. A SEARCH procedure 
is generated in lines 4000-4210 that can be utilized by both 
the INQUIRY/LIST and UPDATE functions. You need only to 
specify the field number and enter the value of the characters 
to be used. By entering fewer characters than the size of the 
field, you can perform a generic search, extracting, in turn, all 
records that satisfy those requirements. 

The previously mentioned input editing is performed in 
lines 4400-4590. Selecting the output medium (screen or 
printer) is done in lines 680-730. ASCII control characters (for 
an EPSON printer), based on the attributes of the resident 
Database, are generated and sent to the device, thereby setting 
character size and tabs. The EPSON MX-80 has software- 
selectable print lines of from 40 to 132 positions. Other printers 
without this feature may require a modified approach or a 
limitation in your record size. 

The Sort 

The SORT routine (Program 2) is an example of the "selection 
and exchange" variety. Logic similar to that contained in the 
database manager allows you to select the file to sort or list 
the index of that particular disk (lines 4000-4340). The choice 
of sort key and whether "ascending" or "descending" occurs 
is in lines 5000-5070. The file is input and stored in the 
DIMensioned string X$ in lines 5100-5160. The variables I, J, 
and K are used as pointers during the loops through X$ as fol- 
lows: I represents the sorted/not sorted boundary X$, J is the 
current comparison with the previously selected lowest or 
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highest value (DS$), and K is the location of this previous 
value. 

An exchange between X$(K,K + L) and X$(I,I + L) occurs if 
an unsorted condition is detected on any loop. The sort ter- 
minates when the sorted boundary is equal to the size of X$. 
Then, X$ is written to the disk, the original file is deleted, and 
the new file is renamed. 

At this point it would probably be helpful for us to single- 
step through the code, but we have neither the time nor the 
space to do this. But we can examine at least one aspect of the 
structure, notably the interaction of the subroutines that per- 
form the input and handling of an existing data dictionary 
record. Entry to the READ DICTIONARY routine (9200-9310) 
is from several possible locations: LIST INDEX, both FMS and 
DIC (via line 6500); DICTIONARY INQUIRY/LIST (line 
7080); and SELECT DATABASE (line 800). Two variables 
(loaded by the calling module) enable this one subroutine to 
perform several functions. T represents the "type" of request 
(0 — index; 1 — loop through to find and load data dictionary 
record with key equal to value in FILD$; 2 — list single data 
dictionary record with key FILD$; 9 — browse through all data 
dictionary records). The variable R returns control back to a 
specific line number in the event of a DISK I/O error being 
TRAPped to line 9500. 

As the program executes each line within the routine, pro- 
gram control is modified based on the value of T during that 
call. Options include loading the full record into all of the dic- 
tionary variables (9000-9050), listing the dictionary record to 
the screen (8750-8870), chatting with the operator (9280-9290), 
and a "quickie" index. The subroutines mentioned above, as 
well as the balance of the program, work in a similar manner. 

Typing It In 

Both program listings contain unprintable ASCII characters 
used for screen and printer control. Be sure to check the 
Appendices for how to enter these characters. Because the two 
programs call each other by name, you must save the two as 
"D:DMSDB" and "D:DMSSORT". 
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Table 1 . Data Dictionary Record (REC$) 



Variable 
Name 

FILD$ 
APP$ 
DL(1) 



DL(6) 
HD1$ 



HD6$ 
DE(1) 



Position 
Within REC$ 

1-8 
9-33 

34-45 



46-117 



DE(6) 



118-123 



124 



Description 

Application filename 
Application title 

Lengths of 6 (max) data elements 
within record (2 char ea) 



Heading titles (12 char) 



Editing criteria for elements 

= Alphanumeric 1 = Numeric (N) 

2 = Date(D) 3 = Dollar($) 

Delimiter ("*") 



Table 2. Other DMS/DB Variables 



Name 
RL 

NE 

DM$ 

FIL$ 

1$ 

IN$ 

SF 

SL 

SS 

SE 

sv$ 

FD1$ 

FD6$ 

T 

EOF 

LJ,K,L,N 

ERR 

R 

P 

S$,X$,P$,N$ 



Size Description 

(var) Application data set record length 

(var) Number of data elements 

8 DMX/DB filespec (DiDMS.DB) 

14 Application filespec (D:filename.DB) 

1 Operator response to questions 

31 General input of data and temp stor 



(var) Used by search function 



(var) Application data elements 

— Tran type passed to I/O routines 

— End of file counter 

— Temp stor for looping, length, etc. 

— Input data error flag 

— Error message return line # 

— Printer/screen indicator (1= Print) 

— Messages, prompts 



- 
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Program 1. DMSDB 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

HJ 40 POKE 82,0:POKE 83,39:G0T0 100 

KG 50 DIM APP* (26) , FIL* ( 14) , FILD* (9) , HD1* < 12) , 

HD2* ( 12) , HD3* ( 12) , HD4* ( 12) ,HD5t(12) 
IL 60 DIM HD6* ( 12) , I* ( 1 ) , REC* ( 132) , IN* (31 ) , DM* 

(8) , DL (6) , DE (6) 
6N 65 DIM S* ( 15) , X* (5) , P* (24) , N* ( 16) : N*="rjH3iII 
BiXiinS " :DM*="D:DMS.DB" 



DE 70 P*="PRESS RETURN TO CONTINUE" : S$=" (DOWN) 

SELECT OPTION: " : Xt-' TJEESIE. " 
EA 75 FOR 1 = 1 TO 6 : DL ( I ) =0 : DE ( I ) =0 : NE X T I 
BJ 80 REC*(1)=" " : REC* ( 132) =" " : REC* ( 2 ) =REC* : R 

ETURN 
JB 100 GRAPHICS 0:? "{DOWN} DATA MANAGEMENT SY 

STEM - VER 1.2":CLR :DIM I*(l) 
NO 110 ? "{D0WN}{5 SPACES>PRIMARY OPTION MENU" 

:POKE 16,64:P0KE 53774,64 
IE 120 ? "{DOWN} D - DATA DICTIONARY FUNCTIONS 

"I? "{5 SPACES} (DEFINE NEW APPLICATION 

& DATA) " 
BK 130 ? "{DOWN} R - EXEC FILE MANAGEMENT SYST 

EM":? "{5 SPACES} (ACCESS EXISTING DATA 

BASE) " 
DD 150 ? "{DOWN} S - CALL DMS SORT UTILITY":? 

"{DOWN} E - END (TERMINATE DMS)" 
KF 160 ? :? "SELECT OPT I ON : " ; : I NPUT I*: IF I*=" 

R" THEN 500 
EP 180 IF I*="D" THEN 6000 
HE 200 IF I*="S" THEN RUN "D:DMSSORT" 
BG210 IF I*="E" THEN GRAPHICS 0:END 
Kl 220 ? " BEBEBHS " : GOTO 160 
FO 490 ? " {DOWN}SELECT DATA SET 1ST":G0SUB 630 


HI 500 ? " {CLEAR} {DOWN} {3 SPACES}DMS FILE MANA 

GEMENT MENU" 
SN 520 IF NE<>0 THEN ? :? ,APP*:IF P=l THEN ? 

, " EOH311HEEiai3 im:" 
KC 540 ? "{DOWN} S - SELECT DATA BASE":? " A - 

ADD" 
DH 580 ? " L - LIST / INQUIRY":? " U - UPDATE" 
ML 590 ? " P - PRINTER (SCREEN DEFAULT)":? " E 

- END (RETURN TO DMS MENU)" 
JD 600 ? :? "SELECT OPTION:";: INPUT I*:IF I*=" 

E" THEN 100 
DD 620 IF I*="S" THEN 750 
EH 630 IF I*="A" THEN 1000 
FE 640 IF I*="L" THEN 2000 
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FP 650 IF I*="U" THEN 3000 

DG 660 IF I*="P" THEN 680 

LA 670 ? " BggZaMIS " : GOTO 600 

PJ 680 IF NE = THEN 490 

6H 690 ? :? "TYPE: P-PRINTER S-SCREEN " : I NPUT I 

*:IF I*<>"P" THEN P=0:GOTO 500 
AF 700 P=l: IN*="{R><:ESC}D<5 SPACES> C , } " : IF RL> 

55 OR N>4 THEN I N* < 1 , 1 ) = " <0> " 
HF710 L=l:FOR 1=2 TO NE : J=DL ( I - 1 ) : I F J<12 THE 

N J=12 
JL 720 L = L + J + 2: IN* ( 1+2, 1+2) =CHR* (L) : NEXT I 
BF 730 R = 690:TRAP 9510:LPRINT IN*:TRAP 40000:G 

OSUB 80: GOTO 500 

DE750 ? "<:clear>{:down><:4 spaces>data base sel 

ECTION":CLR : GOSUB 50:R=760 
01760 ? " tDOWNJENTER DATA SET NAME (I FOR IND 

EX) " : ? : ? P*; " (END) " 
NO 770 INPUT FILD*: IF LEN(FILD*)=0 THEN 500 
HJ 780 IF LEN(FILD*)=1 AND FILD*="I" THEN GOSU 

B 6500: GOTO 760 
LD 800 T=l:GOSUB 9200: IF EOF = THEN 500 
GH 820 ? "<:DOWN>DATA SET LOADED ": GOSUB 6300 
GB 830 RL=l:FOR N=l TO NE:GOSUB 8B0 + N : RL = RL + DL 

(N) :NEXT N 
DG 850 DIM DS* (RL) , SV* (30) : FOR 1 = 1 TO RL:DS*(I 

,I)=" " :NEXT I: GOTO 500 
PE881 DIM FD1* (DL (N) ): RETURN 
PB 882 DIM FD2* (DL (N) ): RETURN 
PI 883 DIM FD3*(DL (N) ): RETURN 
PK 884 DIM FD4* (DL (N) ) : RETURN 
PM 885 DIM FD5*(DL <N) ) : RETURN 
P0886 DIM FD6* (DL (N) ) : RETURN 
BH 1000 IF NE = THEN 490 
DC 1005 R = 500:TRAP 9500:XIO 36 , #2 , , , F I L* : OPE 

N #2, 9, 0,FIL*: TRAP 40000 
AI 1010 ? " <:CLEAR><D0WN}{3 SPACES} "; APP* : ? " 

{DOWN> TO ADD RECORD, ENTER:" 

FOR N=l TO NE 

GOSUB 9820 + N: IF DE(N)<>2 THEN ? " (";D 

L(N);" CHAR MAX)":GOTO 1070 

? " (6 CHAR - MMDDYY) " 

INPUT IN*: L=LEN( INt) : IF N=l AND L=0 TH 

EN 1180 

GOSUB 4400: IF ERRO0 THEN 1070 

GOSUB 9810+N:NEXT N:GOSUB 4000 

? #2;DS*:? " CDOWN> TRANSACT I ON ACCEPTED 

II 

OA11B0 ? "{DOWN>TYPE E FOR FMS MENU":? P* 

PC 1190 INPUT I*:IF I*<>"E" THEN 1010 

IH 1200 CLOSE #2:XI0 35 , #2 , , , F I L* : GOTO 500 

32 
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BN 2000 IF NE = THEN 490 

NB 2020 ? " CCLEAR} CDOWN> ";APP*:? "{DOWN} IN 
QUIRY / LIST": IF P=l THEN ? , ,"CUP}E[SG 

HD 2030 ? "CDOWNJ A - LIST ALL RECORDS":? " S 

- SEARCH ON KEY" 
KA 2050 ? " E - END (RETURN TO MENU)":T=9 
LA 2060 ? S*; : INPUT I*: IF I*="E" THEN 500 
Hfl 2080 IF I*="A" THEN 2300 
HN 2090 IF I*="S" THEN T=l:? " CCLEAR} ": GOSUB 4 

100:GOTO 2300 
LJ2100 ? X*:GOTO 2060 
GO 2300 1=0: EOF = 0: R = 2000:TRAP 9500:OPEN #2,4,0 

,FIL* 
LK2310 TRAP 2420: INPUT #2,DS*:TRAP 40000: IF T 

>B THEN 2330 
AI 2320 IF SV*ODS* <SS, SE) THEN 2310 
NO 2330 EOF = EOF+l:IF P<>1 THEN 2400 
PA2340 L=1:J = 1:IF I >0 THEN 2370 
KP 2350 R = 2440:TRAP 9510:LPRINT " C I } CN } " ; APPt ; 

" CT} CK} " 
FC2360 LPRINT HD 1 * ; " C I > " ; HD2* ; " C I } " ; HD3* ; " 

CI} " ; HD4*; " C I > " ; HD5* ; " CI } " ; HD6*; " CK} " 
6D 2370 FOR N=l TO NE : K = DL ( N ) : I F K<12 THEN K=l 

2 
GL2375 REC*<J,J+DL(N)-1)=DS*(L,L + DL(N)-1) :L = L 

+ DL (N) : J = J+K + 2: NEXT N 
00 2380 TRAP 9510:LPRINT REC* ( 1 , J ) : I = I + 1 : I F I< 

55 THEN 2310 
CA 2390 I=0:LPRINT "CL}":GOTO 2310 
HB 2400 GOSUB 4300:? :? P*;" CE TO STOP)" 
PC2410 INPUT I*: IF I*<>"E" THEN 2310 
HO 2420 IF EOF = THEN ? N* 

PH2430 IF EOF>0 THEN ? "REC COUNT- " ; EOF 
HD 2435 IF P=l THEN LPRINT "CL}" 
EP 2440 CLOSE #2:G0SUB 6300:GOTO 2020 
BO 3000 IF NE = THEN 490 
FL 3020 ? " CCLEAR} CDOWN} ";APP*:? " CDOWN} UPD 

ATE / DELETE" ;: GOSUB 4100 
PJ 3040 R = 500:TRAP 9500:OPEN #2 , 4 , , F I L* : OPEN 

#3,8,0, "D: TEMP" : EOF=0 
OF 3060 TRAP 3250: INPUT #2,DS*:TRAP 40000 
AN 3080 IF SV*ODS* (SS,SE> THEN ? #3;DS*:G0T0 

3060 
AL3100 GOSUB 4300 
BC3120 ? " CDOWNJENTER: FIELD # TO UPDATE; D T 

O DELETE":? "PRESS RETURN TO WRITE REC 

II 

BE3130 EOF = EOF+l : INPUT It: IF LEN(It)=0 THEN ? 
#3;DS*:G0T0 3060 
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IF 3135 IF I*="D" THEN 3060 

HJ3140 TRAP 3120: N = VAL ( It) : TRAP 40000: IF N< 1 

OR N>NE THEN 3120 
HP 3150 ? " CDOWNJENTER NEW " ; : GOSUB 9820 + N:? " 

II 

JK3170 INPUT IN*: L = LEN ( IN*) : GOSUB 4400:IF ERR 

<>0 THEN 3150 
EH 3180 GOSUB 9810 + N:GOSUB 4000:GOTO 3100 
HI 3250 FOR 1 = 1 TO LEN ( I N* ) : I N* ( I , I ) = " ":NEXT 

I: IN* (1,7) ="D:TEMP, " 
OL 3260 IN*(8,7 + LEN<FIL*)-2)=FIL*(3) 
II 3270 CLOSE #2:CL0SE #3:XI0 36 , #2 , , , F I L* : X 

10 33, #2,0,0, FIL* 

DK3280 XIO 32,*3,0, 0, IN*: XIO 35 , #3 , , , F I L* 

IE 3290 IF EOF = THEN ? N* 

HA 3300 ? "<:DOWN>MORE UPDATES? (Y OR N)": INPUT 

I*: IF I*="Y" THEN 3000 
JF3310 GOTO 500 
DH 4000 FOR 1 = 1 TO LEN ( DS* ) : DS* ( I , I ) = " " :NEXT 

I 
FE4010 L=1:F0R N=l TO NE:GOSUB 9840 + N : DS* ( L , L 

+DL (N) -1 ) =IN* 
SF 4020 L = L + DL (N) : NEXT N : DS* ( RL )="*": RETURN 
KN4100 ? " SELECT KEY:":? : FOR 1 = 1 TO NEs? " 

11 ■ T . II ii . 
> 1 J J 

EH4110 GOSUB 9820+1:? " ":NEXT I:? :IF SF = T 

HEN 4140 
HB4120 ? "PRESS RETURN FOR KEY:":? " 1ST " ; SL 

; " POS OF " ; 
PG4130 GOSUB 9820 + SF:? " (";SV*;")":? " ":? " 

OR, "; 
HF4140 ? "ENTER KEY FIELD # " ; 
JA4160 TRAP 4200: INPUT SF:TRAP 40000: IF SF< 1 

OR SF>NE THEN ? X*:GOTO 4140 
AL4170 ? "ENTER VALUE OF ";: GOSUB 9820 + SF:? " 

( 1-" ; DL (SF) ; ") " 
JB4180 INPUT SV*: SL = LEN(SV*) : IF SL< 1 OR SL>DL 

(SF) THEN ? X*;" LEN":GOTO 4170 
PF4190 SS=1:IF SF>1 THEN FOR 1=2 TO SF:SS = SS + 

DL ( 1-1 ) : NEXT I 
ID 4200 IF SF = THEN ? XtsGOTO 4160 
IE4210 SE = SS + SL-1 : RETURN 

EO 4300 L=1:F0R N=l TO NE : I N* = DS* ( L , L + DL ( N ) - 1 ) 
HD4310 GOSUB 98 1 + N : L = L + DL ( N ) : NEX T N 
LC 4320 ? " CCLEAR> tDOWN> ";APP*:? : FOR N=l TO 

NE 
LD 4330 ? N;" ";: GOSUB 9820 + N:GOSUB 9B40 + N:? " 

";IN*:NEXT N:RETURN 
IA 4400 ERR = 0:IF L< 1 OR L>DL(N) THEN ERR=1 
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AP4410 ON DE(N) GOSUB 4500 , 4520 , 4560 : I F ERR< > 

THEN ? X* 
KK 4420 RETURN 
NP 4500 FOR 1 = 1 TO L : J=ASC ( I N* ( I , I ) ) : I F J<4B O 

R J>57 THEN ERR=1 
6H4510 NEXT I:RETURN 

FP 4520 GOSUB 4500: IF L<>6 THEN ERR=1 
HO 4530 IF IN* ( 1 , 2) < "01 " OR I N* ( 1 , 2 > > " 1 2 " THEN 

ERR = 1 
II 4540 IF IN* (3, 4) < "01 " OR I N* ( 3 , 4 ) > " 3 1 " THEN 

ERR=1 
KD 4550 RETURN 

DA 4560 IF IN* (L-2, L-2) <>" " THEN ERR=1 
OH 4570 TRAP 4590 : I =VAL ( I N* ( 1 , L ) ) : TRAP 40000 
LB 4580 RETURN 
GN 4590 ERR=l:GOTO 4580 
EG 6000 ? "C CLEAR} {DOWN} < 3 SPACES>DMS DATA DIC 

TIONARY MENU":CLR : GOSUB 50 
CE 6050 ? "(DOWN} A - ADD NEW APPLICATION / DA 

TA BASE" 
JE 6060 ? " I - LIST DICTIONARY INDEX":? " L - 

LIST CURRENT DB DESCRIP" 
JN 6080 ? " D - DELETE DATA BASE":? " E - END 

(RETURN TO DMS MENU) " 
GI6100 ? :? S*;:INPUT I* 
HO6120 IF I*="A" THEN 8000 
KK6130 IF I*="I" THEN R=6000:GOSUB 6500:? :? 

P*; : INPUT I*:GOTO 6000 
IK 6140 IF I*="L" THEN 7000 
II 6150 IF I*="D" THEN 7500 
EP6160 IF I*="E" THEN 100 
ND6170 ? X*:GOTO 6100 

HN 6300 FOR 1 = 1 TO 150:NEXT I : RETURN 
BK6310 FOR L=l TO LEN ( F I LD* ) : I F F I LD* ( L , L ) < > " 

" THEN NEXT L 
KF6320 L=L-1:FIL*(1,2)="D: ":FIL*(3,2 + L)=FILD* 

< 1 , L) :FIL*(3+L)=".DB":RETURN 
HJ 6500 ? " {CLEAR} CDOWN} DATA SET INDEX":? :T 

=0:GOSUB 9200:RETURN 
LN 7000 ? " (CLEAR) {DDWN} DATA DICTIONARY INDU 

IRY":? "(DOWN) A - ALL FILES":T=9 
LN 7020 ? " S - SINGLE FILE":? " E - END (RETU 

RN TO MENU) " 
OD 7030 ? S*;: INPUT I*: IF I*="E" THEN 6000 
IH 7040 IF I*="A" THEN 7080 
EL 7050 IF I*="S" THEN ? "ENTER FILE NAME":T = 2 

:GOTO 7070 
HF 7060 ? X*:GOTO 7030 

EG 7070 INPUT FILD*: IF LEN(FILD*)=0 THEN 7060 
OE 7080 R = 7000: GOSUB 9200: GOTO 7000 
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NJ 7500 ? " £CLEAR> {DOWN> TO DELETE DICTIONARY 

ELEMENT AND":? " RELATED FILE, TYPE FI 

LE NAME: " 
KB7510 ? P*; " (CANCEL) ": INPUT FILD*:IF LENCFI 

LD*>=0 THEN 6000 
ON 7520 R = 7500:TRAP 9500:OPEN #2 , 4 , , DM* : OPEN 

#3, 8,0, "D: TEMP": EOF=0 
IB 7530 TRAP 7600: INPUT #2,REC*:TRAP 40000 
HK 7540 IF FILD*OREC*(l,LEN(FILD*) ) THEN ? #3 

;REC*:GOTO 7530 
CP 7550 EOF = EOF+l : GOSUB 9000:GOSUB 8750 
EK 7560 ? "TYPE D TO DELETE ";: I NPUT I*: IF I*<> 

"D" THEN ? "SAVED":? #3; REC*: GOTO 7530 
HO7570 ? "DELETED":XIO 36 , #4 , , , F I L* : X I 33, 

#4, 0, 0, FIL*: GOTO 7530 
ID 7600 IF EOF = THEN ? N* 
PG7610 CLOSE #2:CL0SE #3:XI0 36 , #2 , , , DM* : X I 

33, #2, 0, 0, DM* 
PD 7620 XIO 32, #3, 0,0, " D : TEMP , DMS . DB " : XIO 35, # 

3,0,0, DM* 
NA 7640 GOTO 6000 
AG 8000 PRINT " {CLEAR> CDOWN> ADD TO DATA DICT 

IONARY":? "{DOWN} ENTER APPLICATION NA 

ME < 1 TO 25 CHAR) " 
JA8010 INPUT APP*: L = LEN (APP*) : IF L< 1 OR L>25 

THEN ? X*:GOTO 8010 
10 8020 ? "ENTER FILE NAME ( 1 TO 8 CHAR)":? " 

FILESPEC WILL BE * D : X X X X X X X X . DB ' " 
DB 8030 INPUT FILD*: L = LEN(FILD*) : IF L< 1 OR L>8 

THEN ? X*:GOTO 8030 
AF8040 IF FILD* ( 1 , 1 X "A" OR F I LD* ( 1 , 1 ) > " Z " TH 

EN ? X*:GOTO 8030 
BI 8060 GOSUB 6310 

LN 8080 ? "CDOWN> (MIN REC LEN=10, MAX=120)":? 
" <DOWN>ENTER # OF DATA ELEMENTS IN RE 

C (2-6)" 
JK 8090 TRAP 0080: INPUT NE:TRAP 40000 
COB100 IF NE<2 OR NE>6 THEN ? X*:GOTO 8080 
HO8110 RL = 0:FOR 1 = 1 TO NE:? " {CLEAR} i DOWN J F 

OR DATA ELEMENT # ";I;" OF " ;NE;" ENTE 

R : " : ? 
LLB120 ? "HEADING ( 1 - 1 2 ) " : I NPUT I N* : L = LEN ( I N* 

):IF L<1 OR L>12 THEN ? X*:GOTO 8120 
JF8125 GOSUB 9800+1 
FF8130 ? "ELEMENT LENGTH (1 TO 30)":? " (TOT 

REC LEN IS " ; RL; " ) " 
HAB140 TRAP 8130: INPUT L:TRAP 40000: IF L<=0 

R L>30 THEN ? X*:GOTO 8130 
KL8150 DL ( I)=L:RL = RL + L 
PL8160 ? "EDITING? (N:NUMERIC, D-DATE, *:DOLL 

AR)":? "RETURN TO SKIP" 
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FH8170 INPUT I*:DE(I)=0: IF I*="N" THEN DE ( I ) = 

1 
FDB180 IF I*="D" THEN DE ( I ) =2 
DFB190 IF 1*="*" THEN DE ( I ) =3 
FC S200 NEXT I 
KA 8220 IF RL<10 DR RL>120 THEN ? "REC LEN=";R 

L; " "; X*: SOTO B080 
HF 8300 REC*(1,8)=FILD*:REC*(9,33)=APP* 
DJ 8320 FOR 1 = 1 TO 6 : REC* ( 32+ I *2 , 33+ I *2 ) =STR* ( 

DL ( I ) ) 
PE 8340 REC* ( 1 17+1 , 1 17+1) =STR* (DE ( I )): NEXT I 
JF 8360 REC*(46,57)=HD1*:REC*(58,69)=HD2*:REC* 

<70, 81 ) =HD3* 
PC 8380 REC* (82, 93) =HD4*: REC* (94, 105)=HD5*:REC 

*(106, 117)=HD6*:REC*(124)="«" 
CJ 8390 GOSUB 8750:7 "CDOWN>TYPE Y TO CREATE D 

ATA BASE" 
AL 8400 INPUT I*: IF I*<>"Y" THEN 6000 
OD 8420 TRAP 8600:XIO 36 , #2 , , , DM* : OPEN #2,9, 

0, DM* 
LC B430 ? #2;REC*: CLOSE #2:XI0 35 , #2 , , , DM* : T 

RAP 40000 
IB 8450 ? "DATA BASE CREATED" 
HL 8460 OPEN #3 , 8 , , F I L* : CLOSE #3:XI0 35, #3,0, 

0,FIL*:GOTO 6000 
CP 8600 STATUS #2, ST: IF STO170 THEN R = B390:GO 

TO 9500 
01 8610 ? DM*;" NOT ON DISK":? "TYPE Y TO INIT 

IALIZE" 
AP 8620 INPUT I*: IF I*<>"Y" THEN 6000 
DL 8630 OPEN #2 , 8 , , DM* : SOTO 8430 
OP 8750 ? " {CLEAR} {CLR TAB> {TAB > {CLR TAB} {TAB} 

{CLR TAB} {TAB} {CLR TAB> { TAB) {CLR TAB} 

{TAB}CCLR TAB}CDOWN} DATA DICTIONARY 

RECORD" 
LP 8760 ? "{DOWN} FILE NAME - ";FILD*:7 " APPL 

ICATION - ";APP* 
NJ 8780 ? "{DOWN} EL{SET TAB}EM # {SET TAB}HE 

ADING{6 SPACES}LE{SET TAB}NGTH 

{SET TAB} EDIT?":? 
HI 8800 FOR 1 = 1 TO NE:? " {TAB} " ; I ; " {TAB} " ; : GOS 

UB 9820+1:? " {T AB} " ; DL ( I ) ; " { TAB } " ; 
KD 8820 IF DE(I)=0 THEN ? " " 
LI 8830 IF DE(I)=1 THEN ? "NUMERIC" 
NF 8B40 IF DE(I)=2 THEN ? "DATE" 
6H BB50 IF DE(I)=3 THEN ? "DOLLAR" 
EG BB70 NEXT I:? :? " RECORD LENGTH = " ;RL:RET 

URN 
HD9000 FILD* = REC*(1,8) : APP* = REC* (9, 33) 
HA9010 RL = 0:NE = 0: FOR 1 = 1 TO 6 
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KP 9020 

OP 9030 
BC 9040 

PE 9050 
KP 9200 
AP 9210 

AB 9220 

OE 9230 
KP 9250 

ME 9280 

CD 9290 

JH 9300 
JL 9310 
KO 9320 
PO 9500 

LF 95 10 

HF 9801 
HH 9802 
HJ 9803 
hL 9804 
HN 9805 
HP 9806 
hE 9811 
HG 9812 
hi 9813 
HK 9814 
HH 9815 
HO 9816 
EJ 9821 
EL 9822 
EN 9823 
EP 9824 
FB 9825 
FD 9826 
HH 9841 
HJ 9842 
HL 9843 
HN 9844 
HP 9845 
NB 9846 



DL(I)=VAL(REC*(32+I*2, 33+1*2) ) : DE < I > =V 

AL (REC* ( 1 17+1 , 117+1) ) 

IF DL ( I ) =0 THEN 9050 

NE=NE+1:RL=RL+DL(I) : IN*=REC*(34+I*12,4 

5+1*12) : BOBUB 9800+1 

NEXT I:BOSUB 6310:RETURN 

TRAP 9500:OPEN #2 , 4 , , DM* : EOF=0 

TRAP 9300: INPUT #2 , REC* : TRAP 40000: IF 

T>8 THEN 9250 

IF T=0 THEN ? " "; REC* (1,8) ; " ";REC*(9 

, 33) : BDTD 9210 

IF FILD*< >REC* ( 1 , LEN (FILD*) ) THEN 9210 

EOF=EOF+l : BQBUB 9000: IF T>1 THEN BOBUB 

8750 
IF T>1 THEN ? :? P*:IF T>B THEN ? " TY 
PE E TO END" 
IF T>1 THEN INPUT I*: IF 
" THEN 9210 
CLOSE #2 

IF T>0 AND EOF=0 THEN ? 
RETURN 

? ' 

#2: INPUT I*i 

? "HUMS! 



T>8 AND I*<>"E 



N*:BOBUB 6300 



STATUS #2,K 

? P*; :CLOSE 

STATUS #7,K 

*; : INPUT I* 

HD1*=IN* 

HD2*=IN* 

HD3*=IN* 

HD4*=IN* 

HD5*=IN* 

HD6*=IN* 

FD1*=IN* 

FD2*=IN* 

FD3*=IN* 

FD4*=IN* 

FD5*=IN* 

FD6*=IN* 

? HD1* 

? HD2* 

? HD3* 

? HD4* 

? HD5* 

? HD6* 



CHECK DISK ORIU 



POP 



BaEms 



X*; 
GOTO R 
, X*; K: ? 



K: 



GOTO 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 

: RETURN 

: RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 



IN*=FD1*: RETURN 
IN*=FD2*:RETURN 
IN*=FD3*:RETURN 
IN*=FD4*:RETURN 
IN*=FD5*:RETURN 
IN*=FD6*:RETURN 
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(I - INDE 
L=l AND FI 



Program 2. DMSSORT 

for error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

BN 20 ? CHR* (253) : GRAPHICS 0:POKE B2,0:POKE 16 

,64:P0KE 53774 , 64 : GOTO 4000 
ON 50 DIM X* (8500) , DS* ( 124) , APP* (25) , FIL* ( 14) , 

FILD* (8) , HD1* ( 12) , HD2* ( 12) 
BP 60 DIM HD3* ( 12) , HD4* ( 12) , HD5* ( 12) , HD6* ( 12) , 

I* ( 1 ) , IN* ( 12) , DL (6) 
HB 70 FOR 1 = 1 TO 6 : DL ( I ) =0 : NEX T I 
EI 80 RETURN 
KP 4000 PRINT " CCLEAR> CDOWN> DMB DATA BASE SO 

RT":GOSUB 50 
NN4010 ? : ? " SELECT DATA SET;":? ' 

X) , D - DMS, E - END) " 
HO 4030 INPUT FILD*: L=LEN (FILD*) : IF 

LD*="D" THEN RUN "D:DMSDB" 
AA 4040 T=1:IF L = THEN 4010 
KP 4050 IF L=l AND FILD*="E" THEN GRAPHICS 0:E 

ND 
HP 4060 IF L=l AND FILD*="I" THEN PRINT " 

<CLEAR> CDOWN> DATA SET INDEX":? : T=0 
NN 4200 R = 4000:TRAP 9500:OPEN #2 , 4 , , " D : DMS . DB 

" : EDF = 
DA4210 TRAP 4300: INPUT #2,DS*:TRAP 40000 
HB 4220 IF T = THEN ? " " ; DS* ( 1 , 8 ) ; " ";DS*(9,3 

3) : GOTO 4210 
OH 4230 IF FILD*< >DSt ( 1 , LEN (FILD*) ) THEN 
00 4240 FILD*=DS*(1,8) :APP* = DS*(9,33) 
EJ 4250 EOF = EOF+l : RL=1 : NE = 0: FOR 1 = 1 TO 6 
61 4260 DL(I)=VAL(DS*(32+I*2,33+I*2> ) : IF 

=0 THEN 4290 
NA 4 280 NE = NE+1:RL = RL + DL(I) : IN* = DS*(34+I*12,45 

+I*12):G0SUB 9800+1 
FH 4290 NEXT I 

BA 4300 CLOSE #2: IF T = THEN 4010 

JF4310 IF EOF = THEN ? " gjJMgJU inE: " : GHTn 4010 
BK 4330 FOR L=l TO LEN ( F I LD* ) : I F F I LD* ( L , L ) <> " 

" THEN NEXT L 
IL4340 L = L-1:FIL*(1,2)="D: ":FIL*(3,2 + L)=FILD* 

< 1 , L) : FIL* (3 + L) =" .DB" 
CA 5000 IF NE = THEN 490 
KP5010 ? " CCLEAR> <!DOWN> ";APP*:? " CDOWN > SELE 

CT SORT KEY:":? : FOR 1=1 TO NE 

? I;" ";:GOSUB 9820+1:? :NEXT I:? "PRE 



4210 



DL ( I ) 



PD 5020 
NJ 5030 
F0 5040 



SS RETURN TO CANCEL"; 

TRAP 4000: INPUT SF:TRAP 40000: IF SF< 1 
OR SF>NE THEN ? " BCSBIIglg " : GOTO 5030 
T=2:? "ASCENDING OR DESCENDING? (A OR 
D)";: INPUT I*: IF I*="D" THEN T=l 
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MI 5050 

PC 5060 

DD 5070 
HD 5 1 
DE 5 1 1 
GJ 5120 

DG 5150 

GB 5 160 
IG 5200 
LC 52 10 
BO 5220 

hP 5230 
Cft 5240 

DH 5250 
PL 5280 

PK 5290 
CH 5300 
FI 5320 

II 5330 

LM 5340 

JP 5350 

HL 5360 
HO 9500 

KF 9S01 



9802 
9803 
9804 
9805 
9806 
9821 
9822 
EN 9823 
EP 9824 
FB 9825 
FD 9826 



MH 
KJ 
HL 
MN 
HP 
EJ 
EL 



SL = DL (SF) : ? 

";SL; " CHAR 
SS=1 : IF SF>1 
DL ( 1-1 ) : NEXT 
SE=SS+SL-1 : R 



LOADING "jFIL*!? "SORT ON 
OF ";:GOSUB 9820+SF:? 
THEN FOR 1=2 TO SF:SS=SS+ 
I 
=5000:EOF=0:N=1:L=RL-1 



TRAP 9500:OPEN #2,4,0,FIL* 

TRAP 5150: INPUT #2,DS$:TRAP 40000 

EOF=EOF+l:X*(N,N+L)=DS*:N=N+RL:GOTO 

10 

CLOSE #2:? "CDOWNJREC LOADED= ";EOF; 

RAM (BYTES)= ";N-1:? "BEGIN SORT" 
1=1 : N=N-RL 

K=0:DS*=X*(I, I+L) :J=I+RL 
ON T GOTO 5220,5240 

IF X* ( J + SS-1 , J+SE-1 ) <DS* (SS, SE) 
S*=X* (J, J+L) : K=J 
GOTO 5250 

IF X* (J+SS-1 , J+SE-1 ) <DS* (SS, SE) 
S* = X* (J, J+L) : K=J 
J=J+RL: IF J<=N THEN 5210 
IF K<>0 THEN X* <K, K + L) =X* ( I 
I+L) = DS* 

I = I+RL: IF KN THEN 5200 
? "tSJ SORT COMPLETED" 
TRAP 9500:XIO 36 , #2 , , , F I L* : OPEN 
,0,FIL*:TRAP 40000:EOF=0 

STEP RL: ? #2; X* ( I 

I 

35, #2, 0, 0, FIL*: ? 
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THEN D 



THEN D 



FOR 1=1 TO N 
F=EOF+l : NEXT 
CLOSE #2:XI0 
= ";EOF 
? "SORT THIS 
PUT I*: IF I*= 
GOTO 4000 
STATUS *2,K:? 



I+L) : X* ( I 



#2, 8 



I+L) : EO 



'RECOUNT 



FILE AGAIN? (Y OR 
"Y" THEN 5010 



N) 



IN 



tEP- rjma i 



K:CLOSE #2:? "PRESS 



GH EES 

UT It:GOTO R 

HD1*=IN*: RETURN 

HD2*=IN* 

HD3*=IN* 

HD4*=IN* 

HD5*=IN* 

HD6*=IN* 

? HD1* 



EUSSH" "d 
ENTER" : : INP 



HD2* 
HD3* 
HD4* 
HD5* 
HD6* 



RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
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Mailing Label Utility 



Vernon M. Daly 



The "Mailing Label Utility" is an excellent example of how the 
"Data Management System" can be used for other applications. 
Requires the use of the Data Management System (previous arti- 
cle) and a disk drive. 

This mailing label utility requires the use Ron Marcuse's "Data 
Management System" (DMSDB) to create the database nec- 
essary for printing labels. I have used his program (unchanged 
since I first typed it in) to keep track of several things around 
the house. Even though it's of limited size, it fits lots of 
applications. It's easy to use and has good data format, both 
on the screen and the printer. 

Doesn't Do It All 

I soon realized that there was one thing I would like to do 
with DMSDB that it didn't do: print mailing labels. DMSDB's 
capabilities were perfect. I could enter new names, make dele- 
tions or corrections, and do searches and sorts. But the printer 
format, good for making a list, was wrong for labels. I decided 
to write a program that would use the data files created by 
Ron Marcuse's program, but output the data in the right for- 
mat for the job I wanted to do. 

A Few Extras 

While I was at it, I decided to add a few extras that would 
make label printing easier. First, I wanted to be able to control 
the number of fields that would be printed. This would allow 
me to have other data in the file than what I might want to 
print on the label. It would also be nice to be able to restart 
the label printing process anywhere in the data file. Finally, 
since my printer has friction feed, I wanted to be able to do 
single forms (to print right on the envelopes). This means that 
the program would need to wait for me while I insert each en- 
velope. All these features are in fact incorporated in this 
"Mailing Label Utility." 

To make the program easy to use, I kept the format of op- 
eration very similar to the Data Management System program. 
Prompts and error messages are handled in much the same 
way as the original program, as are the format for getting into 
the proper database and the use of selective searches. This 
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makes it easy for someone familiar with the original program 
to use this utility. Let me note here that I don't claim original- 
ity for most of the file handling routines in this program. 
They're Ron Marcuse's from the original article. 

Using the Program 

All data entry and editing are done through the original 
DMSDB program. A typical example of a file setup would be 
to use field 1 for name, field 2 for address, field 3 for city and 
state, and field 4 for zip code. 

With the data entered into the database, you can run the 
mail utility. Load the printer with the mailing labels. Any 
printer should work since no special control codes are used. 
Select the database the same way as in the DMSDB program. 
Next, select the printer option. The data-to-screen option is in- 
cluded as an operator convenience. It displays all of the data 
to the screen and has no data control options. 

You may now select among the various printout options. 
You must tell the computer if you want all records or only se- 
lected ones. This is done in exactly the same fashion as the 
DMSDB program. If you choose selective printing, you must 
select the key field and give the selection criteria. 

Next, input the number of fields to print, starting entry 
number, and form length (number of lines that the label is 
long). If you want to print single forms as single-feed labels or 
printing on the envelopes, enter here. As soon as you enter 
the form length, printing will begin. Data will be shown on 
the screen as it is printed. On continuous forms, printing will 
continue until all data has been printed. On single forms, you 
will be prompted to press RETURN to allow printing to con- 
tinue after each record is printed. 

Mailing Label Utility 

This program must be used with DMSDB program in the previous article, "Data 
Management System." 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

KB 40 POKE B2,0:PDKE 83,39:G0T0 90 

KG 50 DIM ftPPt (26) , FILt ( 14) , FILD* (9) , HD1* ( 12) , 

HD2* < 12) ,HD3$(12) ,HD4$(12) ,HD5$(12) 
GL 60 DIM HD6* ( 12) , I* < 1 ) , J* ( 1 ) , REC* ( 132) , IN* (3 

1 ) , DM* (8) , DL (6) 
GN 65 DIM S* ( 15) , X* (5) , P* (24) , N* ( 16) : N*="EI3HiE 

i^rr.fere^iirrrr? " :dm*="D:dms.db" 

42 



Chapter 1 



DE 70 P* = 
SEL 
FOR 
REC 
ETU 
DIM 
10 BR 
U 



H6 75 
BJ 80 

DC 9 
BF 10( 



BE 
JJ 
LO 
CA 

cc 

IB 



1 1 
12 
13 
14 
15 
16 



FJ 17 
SB IS 
FH 19 
6C 20 
LA 49 



DE 750 

01 760 

NK 770 
HJ 7S0 

KP 80 
GH 8 2 
DC 85 



? 

? 

7 

7 

7 

? 

F 

IF 

IF 

IF 

GO 

PR 

6 

7 

EC 
7 

EX 
IN 
IF 
B 

T = 

? 

DI 
, I 



Btf 
GO 
JI 
BL 



10 

10 
10 
10 



AG 10 

PL 10 

LE 10 

El 10 

AN 10 

HP 1 1 



00 
20 
30 
40 

50 
60 
70 
80 

90 
00 



RESS RETURN TO CONTINUE" : S$=" (DOWN) 

T OPTION: " : X * = " S33II£ " 

=1 TO 6: DL ( I ) =0: NEXT I 

1) = " " : REC* ( 132 ) =" " : REC* ( 2 ) = REC* : R 



* ( 1 
HIC 
LIT 
DOW 
DOW 
DOW 
DOW 
DOW 

" { 
= "D 
*=" 
$=» 
$=■• 

16 
T 
0: G 
CLE 
ON" 
DOW 
: ? 
T F 
EN ( 
00 : 
GOS 
DOW 
DS$ 

M M , 

NE = ( 

NT ' 
NT ' 
NT ' 



0: ? 



{DOWN! 



DMS MAILING LABEL 



}{4 SPACES>PRIMARY 

> D - SELECT DATA B 

> S - PRINT DATA TO 

> P - PRINT DATA TO 

> E - END (EXIT PRO 
OWN} SELECT OPTION" 

THEN 750 
THEN 2000 
THEN END 
THEN 1000 



OPTION MENU" 
ASE" 

SCREEN" 

PRINTER" 
GRAM) " 
: : INPUT I*: I 



DOWN 
TO 1 
R> CD 
CLR 
>ENT 
? P* 
LD$: 
ILD* 
OTO 
B 92 
>DAT 
RL) , 
NEXT 
THE 
{CLE 
{DOW 
{DOW 



>SE 
00 
OWN 
: GO 

ER 

. ii 
j 

IF 

) =1 

760 

00: 

A S 

SV$ 

I : 

N 4 

AR> 

N>A 

N>S 



LECT DATA SET 1ST":G0SUB 
ATA BASE SEL 
E (I FOR IND 



}{3 SPACESJD 
SUB 50:R=760 
DATA SET NAM 
(END) " 

LEN (FILD$) =0 
AND FILD*=" 



IF 
ET 



EOF=0 THE 
LOADED" : G 



FOR 
100 



(30) : 
GOTO 
90 
{DOWN! {3 

- PRINT 

- PRINT 



1 = 1 



SPA 
ALL 
SEL 



THEN 100 
I" THEN GOSU 

N 100 
OSUB 6300 
TO RL:DS*(I 



CES> " ; APP* 

RECORDS" 
ECTED RECORD 



RN TO MENU) " 

E" THEN 100 

60 

{CLEAR} " : GOT 



EM 

LO 



1 1 
1 1 
1 1 



10 G 

20 P 

30 I 

* 



RINT "{DOWNJE - END (RETU 
RINT S*;: INPUT J$:IF J*=" 
F J*="A" THEN T=2:G0T0 11 
F J*="S" THEN T=1:PRINT " 

1 100 
RINT X*: GOTO 1060 

" SELECT KEY:":FOR 1=1 TO NE:PRINT 

" . T . " 'i . 
> A > > 

OSUB 9820+I:NEXT I 

RINT "ENTER KEY FIELD # " ; 

NPUT SF-.IF SF<1 OR SF>NE 

:GOTO 1120 



THEN PRINT X 
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KB 1140 PRINT "ENTER VALUE OF " ; : GDSUB 9820 + SF 

: PRINT " ( 1-" ; DL (SF) ; " ) " 
ND1150 INPUT SV*: SL = LEN (SV$) : IF SL<1 OR SL>DL 

(SF) THEN PRINT X*;" LEN":GOTO 1140 
PD1155 SS=1:IF SFM THEN FOR 1=2 TO SF:SS = SS + 

DL ( 1-1 ) : NEXT I 
HA 1156 SE = SS + SL-1 
CD 1160 PRINT :PRINT "ENTER NUMBER OF FIELDS T 

PRINT" 
DA 1170 INPUT NF:IF NF<1 OR NF>NE THEN PRINT X 

*:GOTO 1160 
JP11S0 PRINT :PRINT "START PRINTOUT WITH ENTR 

Y NUMBER ";: INPUT START 
FH1190 PRINT :PRINT "WHAT IS THE FORM LENGTH 

IN LINES":PRINT "ENTER '0' FOR INDIVID 

UAL FORMS": INPUT FORMLEN 
ND 1200 R=1000:TRAP 9600:OPEN #7,8,0, "P:" 
HC 1220 GOTO 2200 
BN 2000 IF NE = THEN 490 

CB 2020 ? " {CLEAR} {DOWN} <3 SPACES }"; APP* 
CI 2050 T = 2: NF = NE 
6N 2200 1=0: EOF = 0: R = 2000: TRAP 9500:OPEN #2,4,0 

,FIL* 
HE 2210 TRAP 2420 
JC 2220 INPUT #2,DSt 
PL 2225 L=1:TRAP 40000 : EOF = EOF+ 1 : I F T = 2 THEN 2 

328 
AH 2230 IF SV*ODS* (SS, SE) THEN 2210 
KF 2328 FOR J = l TO NF 
NK 2340 PRINT DS* ( L , L + DL ( J ) - 1 ) 
AN 2345 IF I$="P" THEN GOSUB 3000 
PH 2352 L = L + DL(J) 
FI 2355 NEXT J 

BC 2356 IF I$="P" THEN GOSUB 3300 
CG 2358 PRINT :PRINT 
HJ 2360 GOTO 2210 

MH 2420 IF EOF = THEN PRINT N$ 

EF 2430 IF EOF>0 THEN PRINT "REC COUNT- " ; EOF 
BF 2440 CLOSE #2:CL0SE #7:PRINT P$: INPUT I*:GO 

TO 100 
EE 3000 REM PRINT SUBROUTINE 
AB3100 IF EOF<START THEN RETURN 
GH3120 PRINT #7 ; DS$ ( L , L + DL ( J ) - 1 ) 
KF 3200 RETURN 

AI 3300 IF EOF<START THEN RETURN 
FH 3305 IF FORMLEN = THEN PRINT P*: INPUT J*:RE 

TURN 
EJ3310 IF NF = FORMLEN THEN RETURN 
NO 3320 FOR J = l TO FORMLEN-NF 
LA 3330 PRINT #7 
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FD 3340 
KL 3350 
HH 6300 
BK 63 10 

KF 6320 

HJ 6500 

HD 9000 
MA 9010 
EH 9020 
OP 9030 
BC 9040 

PE 9050 
KP 9200 
HN 92 10 
AB 9220 

DE 9230 
KP 9250 

IA 92B0 
FC 9290 
JH 9300 
JL 9310 
KO 9320 
PH 9500 



OB 9600 

MF 980 1 
MH 9802 
HJ 9803 
ML 9804 
HN 9805 
MP 9806 
FH 9821 
FO 9822 
GA 9823 
BC 9824 
BE 9825 
GG 9826 



NEXT 
RETU 
FOR 
FDR 

" T 
L = L- 
(1,L 
? "{ 
= 0: B 
FILD 
RL = 
DL ( I 
IF D 
NE = N 
5+1* 
NEXT 
TRAP 
TRAP 
IF T 
,33) 
IF F 
EOF = 

875 
IF T 
IF T 
CLOS 
IF T 
RETU 
STAT 
,X*; 
R 
STAT 
; K: ? 
HD1* 
HD2* 
HD3* 
HD4* 
HD5* 
HD6* 
PRIN 
PRIN 
PRIN 
PRIN 
PRIN 
PRIN 



J 
RN 
1 = 
L = 
HE 
1 : 
) : 
CL 
OS 
* = 
: N 
) = 
L < 
E + 
12 
I 
9 
9 
= 
: G 
IL 
EO 

>1 
>1 
E 

>0 
RN 
US 
!<: 



1 TO 
1 TO 
N NE 
FIL* 
FIL* 
EAR} 
UB 9 
REC* 
E = 0: 
VAL ( 
I ) =0 
1 : RL 
) : GO 
: GDS 
500: 
300: 
THE 
OTD 
D*< > 
F+l : 



150 
LEN 
XT L 
(1,2 
<3 + L 
CDOW 
200: 
(1,8 
FOR 
REC$ 
THE 
= RL + 
SUB 
UB 6 
OPEN 
INPU 
N ? 
9210 
REC* 
GOSU 



:NEXT I:RETURN 

(FILD*): IF FILD*(L,L)<>" 

)="D: ":FIL*(3,2+L)=FILD* 

) =" . DB" : RETURN 

N> DATA SET INDEX":? :T 

RETURN 

) : APP*=REC* (9, 33) 

1=1 TO 6 

(32+1 *2, 33+1 *2> ) 

N 9050 

DL ( I ) : IN*=REC*(34+I*12,4 

9800+1 

310: RETURN 

#2,4,0, DM*: EOF=0 
T #2,REC*:TRAP 40000 
" " ; REC* (1,8);" " ; REC* (9 

( 1 , LEN (FILD*) ) THEN 9210 
B 9000: IF T>1 THEN GOSUB 



THEN ? :? P* 
THEN INPUT I* 
#2 
AND EOF=0 THEN ? N*:GDSUB 6300 



#2,K:? "{BJH 
? P*; -.CLOSE #2: INPUT J*:POP : GOT 



E 3KSEBC 



EH«nKB> " 



US # 
P*; 
= IN* 
= IN* 
= IN* 
= IN* 
= IN* 
= IN* 



HD 
HD 
HD 
HD 
HD 
HD 



7,K: 
: CLO 
: RET 
: RET 
: RET 
: RET 
: RET 
: RET 
1*: R 
2*: R 
3*: R 
4*: R 
5*: R 
6*: R 



? " CE3 

SE #7: 

URN 

URN 

URN 

URN 

URN 

URN 

ETURN 

ETURN 

ETURN 

ETURN 

ETURN 

ETURN 



INPUT J*:POP : GOTO R 
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User-Defined 
Function Keys 



John Hebrink 



"Userkeys" allows you to define any key on the Atari keyboard to 
represent any character string or BASIC function of up to 255 
characters, and have it displayed or executed with the push of a 
button. It takes up IK of memory and lets you define up to 64 
keys for a total of 512 characters. For Atari 400 and 800 only (does 
not work on XL or XE models). 

Although the keyboard doesn't have 64 individual keys, some 
can represent multiple character strings. For example A, a, 
inverse-video A, inverse-video a, CTRL-A, and inverse CTRL- 
A are all legitimate, definable characters. Uppercase letters are 
naturally the easiest to use since they involve only a single 
keystroke. 

Defining a Key 

To define a key, run the program and press the SELECT but- 
ton (before you run this program, be sure to save it). A ques- 
tion mark will appear, prompting you to enter the character to 
be defined. Enter the string and RETURN. To make a BASIC 
functional string, press ESC at the end of the character string 
before hitting RETURN. To exit the program, hit RETURN 
when the question mark appears. From that point on, anytime 
you want to define a key, just press the SELECT button. To 
have a string displayed or executed, press the definition 
character and then press the START button. 

For example, if you want to have a key reset the left and 
right margins, clear the screen, and list your BASIC program, 
try this: 
?L = POKE 82,3:POKE 83,37:PRINT CHR$(125):LIST{ESC} 

To execute this function, press L and then START. 

One of the most useful functions I have run across is 
autonumbered DATA statements: 

?D = PRINT A;" DATA ":A = A + 10 {ESC} 

?F= {UP} {SHIFT-DELETE} {3 UP} {SHIFT-DELETE} {10 RIGHT} 

This is a two-stage function, however, and is executed by 
pressing D, START, F, and START. Variable A would have to 
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be defined in immediate mode to equal the starting line num- 
ber before using this function. The second string, F, is used to — - 
erase the first one, D, and the unwanted READY, and to re- 
position the cursor behind DATA. When entering this string 
and strings like it, don't press ESC before entering the charac- — 
ters. The computer will think you want to RETURN. Just enter 
the functions as is. This may create a somewhat confusing dis- 
play, but will be executed properly when printed by the pro- 
gram. Anything that will work in immediate mode will also 
work this way. 

Line 60 uses the RETURN key mode to erase the BASIC 
program. This means that you must be sure to save the pro- 
gram before running it, or you will lose it. The program then 
resets the BASIC program pointers (128-145) up IK by pass- 
ing MEMLO down to LOMEM. 

If you want to use the console buttons in a program, 
POKE 548,35. (Why not define a key to do it?) SYSTEM RE- 
SET will resume program execution. 

Userkeys 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. The program will not work on XL and XE models. 

10 10 FDR 1 = 1536 TO 1777-.READ A:POKE I,A:NEXT 

I 
CB 20 FOR 1 = 256 TO 325:READ A:POKE I,A:NEXT I 
KB 30 A = PEEK ( 129) : IF PEEK<128)<>0 THEN A = A+1 
m 40 POKE 743,0:POKE 744,A + 4:P0KE 204, A 
CL 50 POKE 2,0:POKE 3,A:P0KE 9,2 
LL 60 GRAPHICS 0:POSITION 2,4:? "NEW":? :? :? 

"D=USR(256) ": POSITION 2,0:POKE 842,13 
HJ 70 DATA 173,232,2,24,105,4,141,232,2,162,0, 

160,21, 169, 7,32,92, 228, 76 , 77 , 1 60 , 1 73 , 3 1 , 

20B 
ED 80 DATA 201,5,240,101,173,31,208,201,6,240, 

3, 76, 98, 228, 169, 43, 141, 36, 2, 173, 31, 208, 2 

01 
NN 90 DATA 6,208,3,76,98,228,166,205,202,202,2 

02,202, 1 89, 0, 0, 205, 25 1,2, 240, 6, 224, 0, 208 

CO 100 DATA 240,240,36,189,1,0,141,97,0,189,2, 
0, 141, 98, 0, 189, 3,0, 141, 124, 0, 120, 162, 0, 
138 
06110 DATA 72,189,0,0,201,27,208,14,169,12,14 
1,252,2, 104, 169, 21, 141, 36, 2, 76, 98, 228, 3 
2 
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ID 120 DATA 164,246,104,170,232,224,0,208,223, 

240, 236, 169, 28, 141, 36, 2, 166, 205, 165, 207 

, 157 
ED 130 DATA 1,0,165,204,157,2,0,169,1,133,206, 

169, 63, 32, 164, 246, 32, 226, 246, 201, 155, 20 

8, 3 
CN 140 DATA 76,9,0,166,205,157,0,0,32,164,246, 

169, 61, 32, 164, 246, 164, 207, 169, 126, 145, 2 

03 
LM 150 DATA 230,207,165,207,208,2,230,204,165, 

204, 197, 129, 208, 8, 169, 0, 141, 27, 0, 76, 9,0 
OC 160 DATA 32,226,246,201,155,240,11,164,207, 

145, 203, 32, 164, 246, 230, 206, 16, 216, 32, 16 

4 
LH 170 DATA 246,166,205,165,206,157,3,0,232,23 

2, 232, 2 32, 134, 205, 16, 148, 104, 169, 12, 141 
OF 180 DATA 74,3,165,204,160,6,190,55,1,157,0, 

6, 136, 16, 247, 24, 105, 1, 160, 7, 190, 62, 1, 15 

7 
HO 190 DATA 0,6,136,16,247,160,0,185,0,6,145,2 

03, 169, 0, 153, 0,6, 200, 208, 243, 230, 204, 23 


EE 200 DATA 204,76,27,241,10,78,84,90,164,202, 

205,61 , 75,81 , 87, 140, 145, 169,233 
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Variable Changer 
and Block Deleter 



Robert Dolan 



With these two short routines, instantly change the name of a 
variable each time it appears in your program or delete a series of 
lines that are no longer needed. 

Here are two aids for the BASIC programmer. The first is a 
line block deleter that allows you to delete a series of lines 
quickly and easily. The second is a variable name change 
utility. 

Block Line Deleter 

This simple utility will delete a series of lines. Use the routine 
with caution, especially if you're using Revision B of Atari 
BASIC. If you're not sure which version of BASIC you have, 
enter this line in immediate mode: 

PRINT PEEK (43234) 

If your Atari responds with 234, then you have Revision C 
and this routine should work just fine. If it responds with 96, 
watch out. You have Revision B and it is full of bugs — es- 
pecially the famous lockup bug. Be careful in deleting lines. To 
be safe, always save a copy of your BASIC program on disk or 
tape before attempting to use Program 1, especially if you 
don't have Revision C of BASIC. 

To use the program, simply type it in using "The Auto- 
matic Proofreader" and LIST it to tape (LIST "C:") or disk 
(LIST "D:DELETER.LST"). Now, whenever you're working on 
a BASIC program and want to delete lots of lines, just ENTER 
the program from disk (ENTER "D:DELETER") or tape (EN- 
TER "C:", being sure to position the tape correctly). The pro- 
gram will append itself to the BASIC program in memory. 
(Note that since the "Deleter" starts at line 32000, it will work 
only with programs that do not use these same line numbers.) 
To delete lines from your program, type GOTO 32000 and an- 
swer the prompts. 

When all the deleting is done, you'll want to save your 
program without lines 32000 and above. Use the LIST 
command: 
LIST "D:filename", 1,31999 (Disk) 
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or 

LIST "C:",l,31999 (Tape) 

Variable Changer 

This utility will peruse your variable name table and list all 
variables it finds in the order in which they were entered into 
your program. It also assigns a number to each variable, which 
is used to identify the variable when you want to change it. 
This makes the program smaller and less complicated. 

To use the utility, simply follow the same procedure de- 
scribed above. First, type in and LIST the program to disk or 
tape. Load in your BASIC program and append this utility to 
it. To use the "Changer" type GOTO 32000, press RETURN, 
and follow the prompts. Again, once the changes have been 
made, LIST the program to disk or tape, being sure to indicate 
the line number range so that the Changer is not saved with 
your BASIC program. 

When the utility is executed, you'll be asked if you want 
to send the list to a printer. If so, enter Y and RETURN. This 
is handy since you don't have to remember or write down the 
number of any variable names you wish to change. If you 
don't have a printer or if your paper supply is low, just hit 
RETURN, and the list will be displayed on the screen in 
blocks of 20 names. 

After the listing is completed, you'll be prompted for the 
number of the variable name to change. Be sure to enter a 
number here or the program will stop. You're limited in your 
replacement name to the same number of characters as the 
original name. Also be careful of string and array names. You 
must include the dollar sign for strings and the parentheses for 
arrays. 

Once you enter the new name, all references to it 
throughout your program will be changed instantly. At this 
point the progam will reprompt you for another name change. 
If you are finished, hit RETURN and the program will end. 

Program 1 . Block Line Deleter 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

KL 32000 REM ** LINE BLOCK DELETE PROG 

NL 32002 DIM L I NE ( 200 ) : L = : PR = 3 1 999 : SETCOLOR 2 

, 10, 2: SETCOLOR 4 , 1 , 2 : SETCOLOR 1,10,1 

4:TRAP 32004 
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GL 32003 LADR=PEEK(136)+256*PEEK<137) 

NE 32004 ? "{CLEAR}":? "***** LINE BLOCK DELET 

E UTILITY *****" 
JL32005 ? :? :? "ENTER START LINE ";: INPUT LS 

T 
GE 32006 ? :? "ENTER END LINEC3 SPACES >";: I NPU 

T LNEND:TRAP 40000: IF LST>PR OR LNEND 

>PR THEN ? :? "INVALID LINE NUMBERS": 

END 
PL 32007 IF LST>LNEND THEN ? :? "END LINE MUST 
BE GREATER THAN START":END 

CO 3200B ? :? "WORKING " 

KK 32009 THS=PEEK(LADR)+256*PEEK(LADR+1> 

AJ 32010 IF THS> = LST THEN 32012 

AH32011 LADR = LADR + PEEK (LADR + 2) : GOTO 32009 

EQ32012 IF THS>LNEND THEN 32014 

LP 32013 L = L+1 : LINE (L) =THS: GOTO 32011 

0132014 ? "LINES FOUND IN THIS BLOCK:" 

PK32015 FOR 1 = 1 TO L:? I , L I NE ( I ) : NE X T I 

CC 32016 ? :? CHR*(253):? " EJBICliHI! IF YOUR PRO 

GRAM IS LONG,":? "THEN CARE SHOULD BE 
USED IN THIS PROCEDURE"; 
EG32017 ? ".WAIT AWHILE AFTER EACH ":? "BLOCK 

TO AVOID FATAL LOCKUPS (#'/.*3?#) " 
LH3201S ? :? : ? "HIT START TO DELETE LINES" 
01132019 IF PEEK (53279) < >6 THEN 32019 
DI 32020 ? " {CLEAR} ": POSITION 2,4 
AL32021 FOR D=l TO 20:Q = O+1 

DB 32022 ? LINE(Q):IF Q = L THEN POP :GOTO 32024 
HN 32023 NEXT D 

OP 32024 ? "CONT" : POSITION 2,0 
NJ 32025 POKE 842,13:ST0P 
PJ 32026 POKE B42, 12 
JD 32027 IF 0<L THEN 32018 
JC 32028 ? "ALL DONE" : END 



Program 2. Variable Changer 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

NJ 32000 REM 

EO 32001 REM * VARIABLE CHANGE UTILITY * 

HE 32 003 XYZ=PEEK(130) +256* PEEK ( 1 3 1 ) : ODQ = 0:DIM 

QQQQ* (10) , VPTR ( 129) 
PD 32004 ? " {CLEAR} ": POKE 710,146:POKE 712,146 

:? "SEND VARIABLES TO PRINTER ";:INPU 

T QQQQ*:GOSUB 32023 
LF32005 ? #2; "VAR NO . = " ; OQO ; " {3 SPACES}";:? # 

2; "VAR NAME=" ; 
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ND 32006 VPTR (QQQ) =XYZ 

00 32007 IF PEEK CXYZX 127 THEN ? #2 ; CHR* ( PEEK ( 

XYZ) ) ; 
LJ 3200S IF PEEK (XYZ) >127 THEN ? #2 ; CHR* ( PEEK ( 

XYZ) -128) ; 
DC 32009 IF PEEK (XYZ) < 128 THEN X YZ=X YZ+ 1 : GOTO 

32007 
DC32010 XYZ = XYZ + 1 : QQQ = QDQ+1 : Q = Q+1 : IF Q = 20 AND 

QPQ=0 THEN ? #2:G0SUB 32020 
CA32011 ? #2:IF X YZ< ( PEEK ( 1 32 ) +256*PEEK ( 1 33 ) ) 

THEN 32005 
BC32012 ? #2:? #2:? #2;"END OF VARIABLE NAME 

TABLE":? #2; "NUMBER OF VARIABLES FOUN 

D=" ; QQQ: CLOSE #2 
EI 32013 TRAP 32025:? :? "ENTER VARIABLE NO. T 

O CHANGE ";: INPUT VN:TRAP 40000 
JD32014 Q = VPTR (VN+1 ) -VPTR (VN) 
HG32015 ? "VAR. NO.";VN;" IS ONLY ";Q;" CHARS 

. LONG" 
DE32016 ? :? "ENTER NEW VARIABLE NAME ";:INPU 

T QQQQ* 
LH32017 IF Q=l THEN POKE VPTR ( VN ) , ASC ( QQQQ* ( 1 

, 1 ) )+128: GOTO 32013 
CI 32018 FOR QQQ = TO Q-2:P0KE VPTR ( VN ) +QQQ , AS 

C (QQQQ* (QQQ+1 )): NEXT QQQ 
BL32019 POKE VPTR ( VN ) +QQQ , ASC ( QQQQ* ( QQQ+ 1 >)+ 1 

28:G0T0 32013 
HL 32020 Q = 0:POKE 764,255:? :? "HIT ANY KEY TO 

CONTINUE" 
JO32021 IF PEEK (764) =255 THEN 32021 
FC 32022 ? : RETURN 
PE 32023 CLOSE #2: IF QQQQ*="Y" THEN OPEN #2,8, 

0, "P: ":QPQ=1:RETURN 
0E 32024 OPEN #2 , 8 , , " E : " : QPQ = : RETURN 
JN 32025 ? :? "Okay": END 
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Varlist 

Brian Totty 



A bug in a program got you completely baffled? Perhaps you're 
unknowingly using the same variable name twice. "Varlist" will 
help you keep track of your variables and also introduce you to _ . 

how the Atari stores variables. 

Atari BASIC is a useful and flexible language, especially in 
its usage of numeric variables. Atari BASIC allows for 128 
different variable names. This BASIC does not, however, limit 
you to names of only a few characters. Where some ma- 
chines may allow only N, G2, or SP, Atari's BASIC allows 
NUMBEROFBOMBS, GRADES2, or SHIPS. It's easy to get 
carried away with this convenience and start tossing about 
variables haphazardly. This makes the program flow harder to 
follow and the program harder to revise as the functions of 
some variables are forgotten. 

There are times when you might want to know if you've 
used a certain variable and have to search the entire program 
line by line to try to find it. 

Variable Storage 

Atari BASIC holds all variable names that have been used 
during your programming in the Variable Name Table (VNT). 
The location of the VNT will depend on the configuration. 

The Atari uses two memory locations (called pointers) to 
point to the VNT. It uses two locations because each location 
(called a byte) can hold a number from to 255. The VNT is 
going to start at a location much greater than 255, so the sec- 
ond byte holds the number of multiples of 256. For example, 
if there is a 3 in the first byte (called the low byte) and a in 
the next byte (called the high byte), you would have 3 plus 
multiples of 256, or 3 + (0*256), or 3. If there is a 67 in the 
low byte and a 6 in the high byte, you would have 67 plus 6 
multiples of 256, or 67 + (6*256), or 1603. 

The two-byte pointer to the VNT starts at location 130 
decimal (82 hexadecimal). In other words, 130 is the low byte 
and 131 is the high byte. Knowing this, you can find where 
the Variable Name Table starts with this BASIC line: 

START = PEEK(130) + 256*PEEK(131):PRINT "TABLE STARTS 

AT";START _ 
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Each variable is stored character by character in the bytes 
after the start of the table. Atari BASIC does this by placing 
the ASCII value of each character in subsequent bytes. At the 
end of the variable name, the last character is stored in inverse 
video (with 128 added to the ASCII value). For instance, ABD 
would be stored as 65, 66, 196 (the last number being the 
ASCII value of D with 128 added); VG$ would be stored as 
86, 71, 164. And a G array would be the ASCII values of G( 
with the parenthesis in inverse video. Such variables as arrays 
and matrices are stored only up to the first parenthesis. The 
end of the table is signified by a zero. 

Variable Listers 

Program 1 is a short BASIC program that lists variables. 

Line 30 creates some variables, so they can be found in- 
side the VNT. 

Line 40 finds the start of the VNT by the two-byte pointer 
at addresses 130 and 131 decimal. 

Line 50 PEEKs the character in the table. 

Line 60 checks if that byte is a zero (the end of the table). 

Line 70 PRINTs the character value of that byte. 

Line 80 checks for the end of the variable; if so, then 
jump to the start of next PRINT line. 

Line 90 adds 1 to the place to get next byte and goes back 
to line 50. 

There are two inherent problems with this BASIC lister, 
however. First, to use this program with another program, you 
will have to merge the two with the ENTER command, being 
careful of overlapping lines — an inconvenience at the least. 
Second, even without line 30, the variable table will get clut- 
tered with the variables that the lister uses. 

Program 2 is a short BASIC loader that creates a machine 
language program and stores it in page 6, starting at address 
1536. Type in Program 2 and save it before you run it. 

When Program 2 is executed, there will be a short pause 
and then the READY prompt will reappear. Now type PRINT 
USR(1536) and press RETURN. Voila. There's your VNT, but 
what is that number at the end? That is the number of vari- 
ables currently in your table. 

Now erase the BASIC loader program with the NEW 
command. Again, type PRINT USR(1536) and watch what 
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happens. NEW erases your BASIC program, clears the VNT, 
but doesn't harm the machine language subroutine. 

Program 1 . Variable Lister, BASIC 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PI 30 DIM ARR C 1 > , F < 1 ) , B* < 1 ) : Cl=10 

KA 4 VNT=PEEK(130)+256*PEEK(131) 

EE 50 BYTE = PEEK <VNT) 

FB 60 IF BYTE = THEN 100 

LF 70 PRINT CHR*(BYTE); 

LP 80 IF BYTEM27 THEN PRINT 

MK 90 VNT = VNT+1 : BOTO 50 

GI 100 END 



Program 2. Variable Lister, Machine Language 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

IH 10 FOR 1 = 1536 TO 1608:READ A:POKE I,A:NEXT 

I 
Oft 20 DATA 104,169,000,133,212,133 
0130 DATA 213,165,130,133,204,165 
OD 40 DATA 131,133,205,160,000,177 
OC 50 DATA 204,240,034,133,206,032 
DP 60 DATA 056,006,165,206,016,007 
PD 70 DATA 169,155,032,056,006,230 
OG 80 DATA 212,230,204,165,204,240 
OH 90 DATA 003,076,015,006,230,205 
BG 100 DATA 165,205,240,003,076,015 
BG110 DATA 006,096,162,000,142,072 
AJ 120 DATA 003,142,073,003,160,011 
BN 130 DATA 140,066,003,032,086,228 
EO 140 DATA 096 
GN 150 END 



" 






~ 
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Scroll Protect 



Jim Bender 



Sometimes it would be desirable to print text to the top of a 
GRAPHICS screen and allow the rest of the screen to scroll. All 
it takes is a short machine language routine. 

At first I thought the only way to protect part of the GRAPH- 
ICS screen from scrolling off the top was to open a text win- 
dow at the bottom of the screen. 

Since I really wanted to protect four or five lines on the 
top of the screen from scrolling, I decided to try to write a ma- 
chine language routine that would protect the top four lines of 
the screen and that would interface with BASIC. Since the 
routine would have to be running all the time to catch any 
text that might stray into the protected area, the logical solu- 
tion turned out to be the Vertical Blank Interrupt (VBI). 

The routine would run during the time that the electron 
beam in the TV is returning from the bottom to the top of the 
screen, during the vertical blank period. BASIC is normally 
interrupted during this time as the operating system goes off 
to update certain registers. A disassembly of the operating sys- 
tem VBI routine revealed that it does little more than in- 
crement the realtime clock (decimal locations 18, 19, and 20). 
Given this and the fact that the Atari can execute upward of 
30,000 cycles during the VBI, my short routine had found its 
interface. 

The result appears in this short demonstration program. 
The DATA lines contain the actual routine. You set the routine 
in motion by first POKEing location 203 (decimal) with the 
number of lines you want to protect. You can call the routine 
with X = USR(1536). To turn off the scroll protect routine, use 
X = USR(1653) to call the GETOUT routine. 

Scroll Protect 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

OJ 10 RESTORE :FOR 1=0 TO 127:READ A:POKE 1536 

+I,A:NEXT I s REM LOAD THE ML ROUTINE 

PP 20 PRINT CHR* ( 125) : REM CLEAR THE SCREEN 

UK 30 POSITION 2,0:REM START ON TOP LINE 

II 40 PRINT CHR* ( 127) ; "THESE LINES WILL" 

CN 50 PRINT CHR* < 127) ; "NOT BE SCROLLED" 

KC 60 PRINT CHR* ( 127) ; "OFF THE TOP OF" 
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CO 70 PRINT CHR* < 127) ; "THE SCREEN." 

HK 80 POKE 203,4:REM PROTECT 4 LINES 

LE 90 A = USR ( 1536) : REM START VBI ROUTINE 

IH 95 REM OTHER LINES SCROLL NORMALLY 

DK 100 FOR 1 = 1 TO 80 

ED 102 POKE B5,INT(I/4) 

HN 104 PRINT "BUT THESE LINES WILL" 

BP 106 NEXT I 

KM 108 REM ML PROGRAM FOLLOWS-TYPE CAREFULLY!! 

IE110 DATA 104,173,48,2,133,205 

JE 120 DATA 173,49,2,133,206,198 

LF 130 DATA 206,169,0,133,204,105 

FC 140 DATA 1,133,207,162,6,160 

DD150 DATA 31,169,7,32,92,228 

FN 160 DATA 96,24,165,203,201,7 

DA 170 DATA 48,4,169,6,133,203 

LO 180 DATA 169,0,133,204,166,203 

OK 190 DATA 165,204,105,40,202,208 

81 200 DATA 251,133,204,165,203,208 

F6210 DATA 4,169,0,133,204,165 

IE220 DATA 207,240,22,160,0,169 

LE 230 DATA 0,145,205,200,196,204 

JL 240 DATA 208,249,160,0,177,88 

CA 250 DATA 145,205,200,196,204,208 

LM260 DATA 247,162,0,134,207,160 

JB 270 DATA 0,177,205,145,88,200 

CP 280 DATA 196,204,208,247,234,234 

CH290 DATA 234,234,234,234,234,234 

KA 300 DATA 76,98,228,104,160,98 

GG310 DATA 162,228,169,7,32,92 

OG 320 DATA 228,96 



~ 
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Data Dumper 



Clifford Engels 



Turn machine language routines in BASIC DATA statements into 
an object file that can be loaded from the Assembler /Editor for 
disassembly and modification. 

Ever wonder how those great little subroutines in BASIC pro- 
grams work? Have you ever wanted to easily load those ML 
routines with your Assembler/Editor? 

Here is a small utility that will convert the DATA state- 
ments in a BASIC program to machine language and store the 
data on tape or disk. Later, this data can be loaded by the 
Assembler/Editor cartridge using the LOAD#C: or LOAD#D: 
filename command. The code can then be disassembled. 

First, type and LIST the program to tape or disk. Then 
load in the program with the DATA statements. Since the util- 
ity program uses lines 0-11, be sure that no DATA statements 
are at those line numbers. If there are, temporarily adjust your 
BASIC program (remember, for the moment you're only in- 
terested in the DATA statements). Next, enter the utility. It 
should be the first 12 lines of the program in memory. 

When you run the program, the first prompt will ask for 
the starting DATA line number. Enter the line number of the 
DATA statement at which you wish to start disassembling. 
The utility will stop automatically after the last data element 
has been read. The next prompt asks for the starting address. 
This address is where the machine language data will load 
using the Assembler/Editor cartridge. This address does not 
have to be the same as the load address in the BASIC pro- 
gram. You are going to disassemble the program, not run it. In 
fact, I recommend using 4096 as the load address so that you 
can easily remember the address when you disassemble the 
data. Decimal 4096 is hexadecimal 1000. You must use hexa- 
decimal address when using the Assembler cartridge. Finally, 
you'll be asked for a filename. Enter C: to save to tape or 
D:filename (substitute a legal filename for filename) to save to 
disk. No quote marks are necessary. 
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DATA Dumper 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PC DIM FI*(15):? " {CLEAR > ENTER LINE # OF FIR 

ST DATA LINE TO BE DISASSEMBLED ";: INPUT 

R:RESTORE R : B=0 : C=0 : TRAP 7 
Ml READ A:B=B+l:GOTO 1 
EL 2 ? :? "ENTER STARTING LOAD ADDRESS ";:INPU 

T ADDR: ADRH=INT (ADDR/256) : ADRL= ADDR- ( 256* 

ADRH) : GOSUB 10 
PA 3 POKE 53775, 35: POKE 53768 , 40 : POKE 53764,0: 

POKE 53766, 0:POKE 53773 , 255 : OPEN #3,8,0,F 

I*:RESTORE R 
EI 4 PUT #3,255:PUT #3,255:PUT #3,ADRL:PUT #3, 

ADRH 
Nil 5 ADDR = ADDR + B-1:ADRH= INT (ADDR/256) :ADRL = ADD 

R-(256*ADRH) : PUT #3,ADRL:PUT #3,ADRH:C=1 

READ A:PUT #3,A:G0T0 6 

TRAP 7: IF PEEK(195)<>6 THEN ? :? "*** ERR 

OR# ="; PEEK ( 195) : CLOSE #3:END 

IF C=0 THEN 2 

CLOSE #3: END 

? " <:down>enter FILENAME.":? "<:down>be SU 

RE TO INCLUDE HE PLUS THEC9 SPACES>FILEN 
AME FOR DISK.":? "CDOWNJOR L^ FOR TAPE." 
LP 1 1 INPUT FI*: RETURN 



DC 6 


CN 7 


NI 8 


BB 9 


Jfl 10 
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_ Atagraph 



Edward Chaney 



Create your own animated displays and save them for future dis- 
play. Requires one disk drive and a joystick. 

"Atagraph" is designed to help you create animation routines 
on your Atari. It allows you to create animation routines by 
drawing a series of pictures using a joystick. You can then se- 
lect the sequence in which these drawings are to be displayed. 
If you like, you can save the routine for use in your own 
programs. 

When Atagraph is run, a drawing frame will be displayed. 
Above this frame are the COLOR and SETCOLOR commands 
which are in effect. Below the frame is a brief menu of options: 

View Displays completed drawings below the frame 

Clear Clears the drawing area 

Scan Allows the user to scan completed drawings 

End Ends the current drawing 

Exchange Changes the drawing in the frame area 

Directory Lists the disk files 

Options available but not listed are the OPTION key, 
which changes the plotting speed, and the down, right, and 
left arrow keys. These keys allow drawings displayed in the 
frame to be positioned onscreen for reference. 

Changing Colors 

To use Atagraph, follow the directions below to enter and run 
the program. When the frame is displayed, press the joystick 
trigger button. The color will change. Press the OPTION key 
and again press the trigger. Now, the color changes at a 
slower speed. Press and hold the OPTION key and the trigger 
until the desired speed is reached. Then, push the joystick in 
any direction. The cursor will draw or erase, depending on the 
color chosen. Color erases. The colors are the same as with 
BASIC color statements. 

The setcolor is also the same as BASIC'S setcolor com- 
mands. SETCOLOR commands are issued by pressing R until 
the desired color register is displayed. Pressing H will change 
the hue, and pressing L will change the luminance. 

When you have selected the colors and setcolor, you are 
ready to do your drawings. Use the joystick to draw a picture. 
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When your picture is completed, press the E key. The com- 
puter will scan the drawing frame and encode your drawing 
(you may have to press the E key more than once). You'll be 
asked if you are ready to save this series. If you plan more 
than one drawing, answer by pressing N and you'll be re- 
turned to the drawing board. Press the V key and the drawing 
will be displayed below the frame. Press X and the drawing 
will be displayed inside the frame where it can be moved or 
modified by using the arrow keys. 

Putting It in Order 

When you've completed several drawings, press S. All 
drawings will be displayed, and you will be asked to enter the 
sequence. The drawings are designated A to Z. Enter the 
appropriate letters for the order in which you wish your 
drawings to be displayed. Separate each letter with a comma 
and press RETURN after the whole sequence has been en- 
tered. You'll be asked to enter the delay. This is the length of 
time each drawing will remain on the screen. A high number 
gives a longer delay. When you've entered the delay, you'll be 
asked to enter the graphics mode. Your drawings may be dis- 
played in either graphics mode 5 or 7. Enter your choice. The 
drawings will be displayed in the order you selected. This scan 
will continue, repeating itself, until you press a key. 

When you press a key, you'll be asked if you're ready to 
save the series. If your animation routine is completed, press Y 
and answer the filename question by entering the correct file- 
name. Enter a standard DOS filename beginning with D:. No 
quotes are necessary. 

When the save is completed, you may do another series 
by pressing the Y key when asked if you wish to do another 
series. 

Loading Pictures 

To load a series of pictures you previously saved with 
Atagraph, select D for directory. You'll presently see a direc- 
tory of the disk in drive 1. Then you'll be asked which file 
you wish to load. Be sure to use D: in front of the filename; 
quotes are not needed. 
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Typing In the Program 

When typing in Atagraph, enter and save Program 1; then 
run it. After a few seconds the screen will clear, and new lines 
50, 60, and 70 will appear on the screen. The program will 
have been erased from memory. Hold down the CONTROL 
key and press the up arrow key (the key immediately to the 
right of the P key) as many times as necessary so that the 
cursor is on top of the 5 of the number 50 (this will be at the 
very top left of the screen). Once the cursor is positioned cor- 
rectly, press the RETURN key three times. You have now en- 
tered the first three lines of the Atagraph program. Now type 
in Program 2 so that lines 50, 60, and 70 become part of the 
program. 

The string variables LINE$, SIDES, and MINES (lines 50, 
60, and 70) contain characters which are difficult to enter cor- 
rectly. The method used here makes them much easier to enter. 

When all of Program 2 and the addition of lines 50, 60, 
and 70 have been entered correctly, save the entire program 
(you might want to save it a few times along the way just in 
case). Now, each time you want to use Atagraph, just load 
and run this final version. 

Program 1 . Atagraph String Maker 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

KJ 10 DIM MINE* (96) , LINE* (24) , SIDE* (39) 

PN 20 FOR X = TO 23:READ A : L I NE* ( LEN ( L I NE* ) + 1 ) 

=CHR* (A) :NEXT X 
PO 30 FOR X = TO 38:READ A : S I DE* ( LEN ( S I DE* ) + 1 ) 

=CHR* (A) :NEXT X 
AK 40 FOR X = TO 95:READ A : M I NE* ( LEN ( M I NE* ) + 1 ) 

= CHR* (A) : NEXT X 
AH 50 GRAPHICS 0:? "50 L I NE*= " ; CHR* ( 34 ) ; L I NE* 
EN 60 ? "60 SIDE*=" ; CHR* (34) ; SIDE* 
FH 70 ? "70 MINE*=" ; CHR* (34) ; MINE* 
AD 80 ? :? :? "ENTER THESE LINES THEN ":? "ENT 

ER PROGRAM 2" 
FD 90 NEW 

HF 100 DATA 104,104,133,204,104,133,203,160,0, 
132, 205, 177, 203, 240, 3, 230, 205, 96, 200, 19 
2, 10, 20S, 244, 96 
FN110 DATA 104,104,133,204,104,133,203,160,0, 

132, 205, 162, 0, 177, 203, 240, 3, 230, 205, 96 
NA 120 DATA 232,224,26,240,250,165,203,24,105, 
40, 133, 203, 144,2,230, 204 , 24 , 1 44 , 230 
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FC 130 DATA 104,104,162,4,104,149,203,202,16,2 

50, 165, 203, 56, 233, 7, 133, 203, 176, 2, 198, 2 

04, 160, 0, 162, 4 
OH 140 DATA 177,205,153,196,2,200,202,16,247,1 

77, 205, 133, 212, 200, 177, 205, 133, 213, 165, 

208, 24, 101,213, 133, 209 
HD 150 DATA 200,166,213,165,207,240,2,177,205, 

145,203,202,240,4,200,24, 1 44 , 24 1 , 1 98 , 2 1 

2, 165,212,240,21,230 
PA 160 DATA 205,165,205,208,2,230,206,165,203, 

56, 229, 209, 1 33 , 203 , 1 76 , 2 1 6 , 1 98 , 204, 144, 

212, 96 



Program 2. Atagraph 

Be sure to read the directions for entering this program before beginning. 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 

in this program. 

DB 30 GOSUB 1380:DIM M I NE$ ( 96 ) , L I NE* < 24 ) , S I DE$ 

(39) 
IK 40 DIM SEQ* (26) , FILE* (20) , A* ( 1 ) , VIEWS (26) : V 
IEWCNT=0:VCNT=1:XVIEW=1:GR=7:MEM=15000:V 
IEWS (0) =MEM 
AK 80 POKE 82, 1 : GRAPHICS 7:P0KE 764,255:P0KE 7 

52, 1 : RESTORE 90:F=0 
CN 90 DATA 3,70,6,6,85,70,88,6,89,6,90,6 
JE 100 DLIST=PEEK(560)+256*PEEK(561) :HDME = PEEK 

(88>+256*PEEK(89):FRAME=H0ME+255 
NJ110 FOR X = TO 5:READ A:READ B:POKE DLIST + A 

,B:NEXT X 
NN 120 POSITION 3,0:POKE 87,0:? #6; " HTWrf *?■]*■!:! R 

,H,LC6 SPACES H»iiH«1:l -C4 SPACES>";REG 
KN 130 ? "EIEW BLEAR SCAN BND EXCHANGE EIRECT 

ORY" 
FC 140 POKE 87, 7: FOR Y = TO 2 

KJ 150 COLOR 3:PL0T 59-Y, 8-Y: DRAWTD 100+Y,B-Y 
KO 160 DRAWTO 1 00 + Y , 36 + Y : DR A WTO 59-Y,36+Y 
BJ 170 DRAWTO 59-Y , 8-Y : NEXT Y 
JN 180 POKE B7,7:P0KE 208 , 39 : X=70 : Y=20 
DE 190 IN = STICK (0) : IF IN=15 THEN 320 
NG 200 IF IN=14 THEN Y = Y-1 
NE210 IF IN=13 THEN Y = Y+1 
ND 220 IF IN=11 THEN X = X-1 
FK 230 IF IN=10 THEN Y=Y-1:X=X-1 
DB 240 IF IN = 9 THEN X = X-1:Y = Y+1 
KJ 250 IF IN = 7 THEN X = X + 1 
DA260 IF IN = 6 THEN X = X+1:Y = Y-1 
CO 270 IF IN = 5 THEN X=X+1:Y=Y+1 
FJ 280 IF X<60 THEN X = 99 
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FN 290 
BN 300 
CA 310 
PP 320 

IL 330 



LD 340 



CI 350 



OB 360 


IF 370 


LH 380 


OH 390 


BN 400 


HN 4 10 


PH 420 


NC 430 


OP 440 


JP 450 


AB 460 


01 470 


LC 480 


NN 490 


NG 500 


NK 510 


LG 520 


JC 530 


NJ 540 


LN 550 


61 560 


NK 570 


BI 580 


KF 590 


AI 600 



610 



ON 620 
LI 630 
FA 640 



Cdl_ = THEN COLOR 2:PL 



Y: NEX 



IF C0L=4 T 



? #6;C0L:P0KE 8 



80 



IF X>99 THEN X=60 

IF Y<9 THEN Y=35 

IF Y>35 THEN Y=9 

FOR T=0 TO DEL: IF 

OT X, Y 

COLOR 0:PLOT X,Y:COLOR COL:PLOT X, 

T T:IF PEEK (53279) =3 THEN DEL=DEL+1:IF 

DEL+1>20 THEN DEL=0 

IF STRIG(0)=0 THEN COL=COL+l 

HEN COL=0 

POKE 87, 0: POSITION 32,0: 

7,7 

IF PEEK (764) =255 THEN 190 

rem i m i iii BE aaggB > 

IF PEEK(764)=18 THEN GOTO 
IF PEEK (764) < >40 THEN 440 

rem —saaoBEBa 

REG=REG+1:IF REG>4 THEN REG=0 

A=PEEK (708+REG) :B=INT(A/16) : A=A-B* 16 

POKE B7, 0: POSITION 12,0:? #6 ; REG ; " , " ; B ; 

",";A;" " : POKE 87,7:P0KE 764,255:G0T0 

190 

IF PEEK(764)<>57 THEN 480 

REM ■cmi<:4 aaiBB B? 

A=PEEK (708+REG) +16: IF A>240 THEN A=A=0 
POKE 708+REG, A: GOTO 420 
IF PEEK(764)<>0 THEN 520 

A=PEEK(70B+REG) :B=INT(A/i6) :A=A-B*16:A= 

A+l : IF A>15 THEN A=0 

A=A+B* 16: POKE 708+REG , A : GOTO 420 

IF PEEK(764)<>6 THEN 550 

REM « I EM I I I 

IF VIEWCNT>0 THEN NOW=XNOW: 

GOTO 610 

IF PEEK (764) <>7 THEN 580 

REM — HBGHH I M-l I 

IF VIEWCNT>0 THEN NOW=XNOW: 

GOTO 610 

IF PEEK (764) <> 15 OR VIEWCNT- 

REM IM hi 1 | ■ | | 

NOW=XNOW: XNOW = 

THEN XN0W=H0ME+2655 
U=USR(ADR(MINE*) , 0, VIEWS (XVIEW) ,NOW) 



US 
XNOW+40: 



XNOW=XNOW-l 



XNOW=XNOW+l 



■OS THEN 620 



IF XN0W>H0ME+2655 



USR(ADR(MINE*> , 1 , VIEWS ( XVIEW) , XNOW) 

E 764,255:G0T0 190 

IF PEEK (764) < >16 THEN 690 

REM CZ B J:T»3 4^ > CBTgat 5 aUTH^i> 

IF VIEWCNT=0 THEN ? CHR*(125):7 "NO 

WS COMPLETED !": FOR A=0 TO 500:NEXT A 

TO 80 



U = 
POK 



VIE 
: GO 
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EA 650 



OF 660 


LC 670 


GN 680 


00 690 


NO 700 


HN 710 


DP 720 


ED 730 


SJ 740 


BK 750 


CG 760 


ID 770 


HP 780 


HM 790 



N0W=HDME+265 5: U=USR (ADR (MINED , 0, VIEWS ( 

VCNT) , NOW) 

VCNT=VCNT+1 : IF VCNT>VIEWCNT THEN VCNT=1 

U=USR(ADR(MINE«) , 1 , V IEWS (VCNT ) , NOW) 

GOTO 420 

IF PEEK (764) < >22 THEN 750 

REM {3 MsIiM^a > fagWiM:TrtaMi 

IF VIEWCNT=0 THEN 640 

XN0W=H0ME+1415:U=USR(ADR (MINE*) ,0, VIEWS 

(XVIEW) , XNQW) 

XVIEW=XVIEW+1 : IF X V I EW > V I E WCNT THEN XVI 

EW=1 

U=USR(ADR(MINE$) , 1 , VIEWS (XVIEW! ,XNDW) :G 

QTQ 420 

IF PEEK (764) < >62 THEN 1060 

REM 



GB 800 



NG 
EN 
LI 

DP 
ED 



810 
820 
830 

840 
850 

860 



CL 870 


EE 880 


GD 890 


PL 900 


DJ 910 


MC 920 


BO 930 


CH 940 


GE 950 


CA 960 


NN 970 


0J 980 


U1 990 


HA 1000 


HC 1010 


FA 1020 



IF VIEWCNT=0 THEN 640 

GRAPHICS 7: NQW=HOME+ 1 042 : POKE 764,255 

FOR X=l TO VIEWCNT: U=USR (ADR (MINE*) , 1 , V 

IEWS (X ) , NOW) 

N0W=N0W+PEEK(VIEWS(X)+6)+l: IF NOW>HOME+ 

1070 AND F=0 THEN N0W=H0ME+2563 : F= 1 

NEXT X:? "ENTER SEQUENCE ";: I NPUT SEQ* 

TRAP 820:? :? :? "ENTER DEL AY ";: I NPUT A 

TRAP 830:? :? :? "GRAPHICS 5 OR 7";:INP 

UT GR:IF GR=5 THEN 850 

IF 6R<>7 THEN 830 

GRAPHICS GR+16:N0W=PEEK(88)+PEEK(89)*25 

6 

IF GR=7 THEN N0W=N0W+22 1 5 : POKE 208,39:G 

OTO 880 

N0W=N0W+685: POKE 208,19 

OLDX=0 

TRAP 890:B=1 

X=ASC(SEQ*(B,B) )-64 

IF X>VIEWCNT OR X<0 THEN X=l 

IF OLDX=X THEN 940 

U=USR (ADR (MINE*) ,0,VIEWS(OLDX) ,NOW) :U=U 

SR(ADR(MINE*) , 1 , VIEWS (X) , NOW) :OLDX=X 

IF PEEK (764) <>255 THEN 960 

FOR Y=0 TO A:NEXT Y:B=B+l:GOTO 900 

POKE 208,39:POKE 764 , 255 : GRAPH I CS 1 + 16 

POKE 764,255:? #6:? #6:? #6;" ARE YOU R 

EADY TO "s? #6;" SAVE THIS SERIES?" 

A=PEEK (764) : IF A=255 THEN 980 

POKE 764,255: IF A<>43 THEN 80 

TRAP 1010: GRAPHICS 0:? " ENTER FILENA 

ME ";: INPUT FILE*:GOTO 1020 

CLOSE #3:G0T0 1000 

OPEN #3, 8, 0, FILE*: PUT #3, VIEWCNT 
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CL 1030 
EB 1040 



HO 1050 

EB 1060 

ftP 1070 

LL 1080 

PD 1090 



PK 
KN 



1 100 
1110 



00 1 120 

CD 1 130 

LA 1 140 

NB 1 150 



LL 1 160 
IK 1 170 



PP 1 180 
LA 1190 
KD 1200 



1210 
1220 
1230 
1240 
1250 



NC 1260 

LP 1270 

LI 1280 

NG 1290 

NB 1300 

OG 1310 

II 1320 

BN 1330 



FDR 
EXT 
? "T 
H TO 
*< >" 
CLR 
IF P 
REM 
LINE 
U = US 
THEN 
LINE 
U = US 
THEN 
111 
LINE 
U = US 
THEN 
LINE 
U = US 
THEN 
50 

HGT = 
= VIE 
TRAP 
08 + X 
POKE 
A = BO 
FOR 
A = PE 
XT X 
GOTO 
IF P 
REM 
TRAP 
GRAP 

Em 

FOR 
XT X 
CLQS 
FIL 
TRAP 
LE*: 
CLOS 
GET 
GET 


CLDS 
VIEW 
MEM + 



X = V 
X: C 
HIS 
DO 
Y" 
: GO 
EEK 



= HD 
R(A 

LI 
= HO 
R (A 

LI 


= HO 
R (A 

LE 
= HO 
R (A 

RI 



IEWS (0) 
LOSE #3 
SERIES SAVED":? 
ANOTHER SERIES" 
THEN GRAPHICS 0: 
TO 40 

(764)<>42 THEN 1 
ISiU gPIBi 
= 

LINE) : 
: TOP=T 
TT0M=2 
LINE) : 
: BOTTO 



TO MEM:PUT #3,PEEK(X):N 



ME+375: TOP 
DR (LINE*) , 
NE=LINE+40 
ME+1415: BO 
DR (LINE*) , 
NE=LINE-40 



ME+375: LEFT=0 
DR (SIDE*) , LINE) : 
FT=LEFT+1 : LINE=L 
ME+375+9: RIGHT=9 
DR (SIDE*) , LINE) : 
GHT=RIGHT-1 : LINE 



:? "DO YOU WIS 
; : INPUT A*: IF A 
END 

220 



IF PEEK(205)=0 

OP+l:GOTO 1090 

6 

IF PEEK(205)=0 

M=BOTTOM-l : GOTO 



IF PEEK(205)=0 
INE+l:GOTO 1130 

IF PEEK(205)=0 
=LINE-l:GOTO 11 



BOTTOM- 
WCNT+1 : 

1220: F 
) : MEM=M 

MEM+1 , 
TTOM*40 
Y = TO 
EK (LINE 
:LINE=L 

960 
EEK (764 

1270: P 
HICS 0: 

^w^n" 

X = TO 



TOP:WIDE=RIGHT-LEFT:VIEWCNT 
VIEWS (VIEWCNT)=MEM 
OR X=0 TO 4:P0KE MEM,PEEK(7 
EM+1:NEXT X : POKE MEM,HGT+1: 
WIDE+l:MEM=MEM+2 
:LINE=H0ME+375+A+LEFT 
HGT:FOR X=0 TO WIDE 
+X):POKE MEM, A: MEM=MEM+1 : NE 
INE-40:NEXT Y 

) < >58 THEN 1340 

OKE 764,255:P0KE 82,2 
? : ? " PLTEMMIBaaBIIIillHIE M 
: OPEN #3,6,0, " D : * . * " 
5000:GET #3, A:? CHR*(A);:NE 



E #3:7 "DO YOU WISH TO LOAD AN OLD 
E";: INPUT A*: IF A*<>"Y" THEN 80 

1290:7 "ENTER FILENAME" ;: INPUT FI 
OPEN #3, 4, 0, FILE*: GOTO 1300 
E #3:G0T0 1280 

#3, A: VIEWCNT=VIEWCNT+A: TRAP 1320 
#3,A:P0KE MEM , A : MEM=MEM+ 1 : GOTO 131 

E #3: MEM=15000: FOR X=l TO VIEWCNT 
S(X)=MEM:MEM=MEM+PEEK(MEM+5)*PEEK( 
6)+7:NEXT X : GOTO 80 
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CD 1340 IF PEEK (764) < >61 

190 

NN 1350 IF GR = 5 THEN 

KA 1360 IF GR = 7 THEN 

HE 1370 POKE 764,255 

EA 1380 REM i^s^M:;* 

CF 1390 GRAPHICS 2+16 

CE 1400 ? #6; 

IH 1410 POSITION 

PN 1420 POSITION 

EC 1440 POSITION 

JB 1450 FOR T = 



THEN POKE 764,255:G0T 



GR=7: GOTO 
GR = 5 
GOTO 770 



3 

TO 



5: ? 
6: ? 
S: ? 
500: 



#6 
#6 
#6 



"THE 

"OF 

"by 



1370 



POSITION 5,3 



BASIC VERSION' 



NEXT 



ed chaney" 
T: RETURN 



" 
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Superplot 



Mike Portuesi 



With this plotting and drawing utility you'll be able to create dis- 
plays easily and save them for use in your own programs. Re- 
quires at least 24K RAM and a joystick. 

COMPUTEl's Second Book of Atari contains an article called 
"Plotting Made Easy." The program that accompanies the arti- 
cle allows you to draw on the screen and have the computer 
write a series of PLOT-DRAWTO statements for use in an- 
other program. I've added some improvements to this program 
and call the new program "Superplot." 

How to Use Superplot 

Type in Superplot using "The Automatic Proofreader" in 
Appendix C. Make a few backup copies just in case. Be sure 
not to run the program until you've saved it a few times. Not 
only is this program self-modifying, but the computer could 
also lock up if you fail to type in the machine language data 
correctly. 

When you run the program, there will be a short pause as 
it initializes. Then you'll be asked a series of questions dealing 
with color and luminance for the cursor, background, and each 
of the color registers. Enter the standard Atari color and lumi- 
nance values for each of these prompts (the same values used 
in the SETCOLOR statement). When the questions are over, 
the program sets up its display. 

The Indicator Line 

You should notice a set of indicators on the bottom of the dis- 
play. The first two indicators (from left to right) are X— and 
Y = . These tell the current location of the cursor. The co- 
ordinates you see there are the same as the X,Y values of the 
PLOT statement, and they point to the center blank spot of 
the cursor. The next indicator, C = , tells you what color you're 
drawing in. Note that this indicator is the same value as the 
Atari COLOR statement, and not a color register number. The 
next indicator, LAST = , tells you the last thing you did on the 
display, whether it was plotting a point or drawing a line. If 
you just plotted a point on the display, the indicator will read 
P. If you just drew a line, it will read D. The last indicator is 
M. It tells you the amount of free memory in bytes. This 
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serves as a warning in case you're running out of memory. 
There are also four color bars under the text window. These 
will be discussed below. 

The Cursor 

At the upper left of the display is a small cross. This is the 
cursor. If you don't see it, or if you see only part of it, use the 
joystick to move it into view. 

To plot a point, move the cursor to the desired spot and 
press the fire button. To draw a line, move the cursor to the 
endpoint of your intended line and press the fire button again. 
The computer will draw a line to connect these two. To plot a 
single point, simply press the fire button twice. This will ac- 
tually PLOT and DRAWTO a line to the same spot, but when 
the program writes the BASIC subroutine, it will show up as 
only one PLOT statement. If you want to connect lines, make 
the endpoint of the first the beginning of the second by push- 
ing the fire button again after you draw the first line. For ex- 
ample, if you want to draw a square, follow these steps: 

1. Move the cursor to the first corner of the square and press 
the fire button. 

2. Move the cursor to the second corner and press the fire but- 
ton twice. This draws the first side of the square and plots 
the beginning of the second. 

3. Move the cursor to the third corner and press the fire but- 
ton twice. 

4. Continue this process until the square is completed. 

When the program writes the BASIC subroutine, the 
instructions for the square will come out as one PLOT state- 
ment and a series of DRAWTOs. 

The Color Bars 

The color bars are used to change the color you wish to draw 
with. To change the drawing color, simply move the cursor 

over the appropriate bar and push the fire button. The next 

line you draw will be in the color selected. Note that the blank 
space in the middle of the cursor must be over the color bar to 
make the change. 
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The Console Keys 

Each of the console keys performs a different function. 

OPTION. When you press this key, the program will ask 
for an output device. Enter C: to save your BASIC subroutine 
to cassette, D-.filetiame.ext to save your routine to disk, or P: 
to list your routine out to the printer. This program saves the 
routine in LIST format. To enter it back in, use the ENTER 
command. If you saved it on disk, use ENTER 
"D:filename.ext" to retrieve it from disk, and if you saved it to 
cassette, use ENTER "C:". 

After the program saves your routine, it will ask if you 
want to clear it out in memory. Answering Y will result in the 
computer deleting all the lines it has added to the program. It 
will then return you to graphics mode 7 with a clean display, 
ready for a new picture. If you don't want to save your sub- 
routine, but simply want to get rid of it, push the RETURN 
key in response to the "Enter output device?" prompt. It will 
then ask if you want to clear out the lines. 

SELECT. This key is used to change the colors in each 
color register. The computer will ask for the color register 
number (see the chart above to pick the right one), the Atari 
color value, and the luminance of that color. It will then 
change the color in that register. 

START. Pressing this key will cause the computer to add 
statements to the program. All the lines you have drawn will 
automatically be converted to PLOT-DRAWTO statements. 
They will be stored with line numbers beginning at 20000, 
continuing upward by increments of ten. If you don't press 
START, the program will automatically update itself after ev- 
ery 20 lines you draw on the screen. Note that this option will 
not work if you have just plotted a point on the display. You 
must have just completed drawing a line for this option to 
work. 

The Space Bar 

If you make a mistake drawing a line, hit the space bar. The 
program will delete the last line drawn on the display. Each 
time you hit the space bar, the computer will erase the pre- 
vious line drawn. You can erase as many lines as you wish 
this way. 
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There are a few restrictions on its use, however. The first 
is that you cannot delete a line whose coordinates have al- 
ready been made part of the program. If you want to do this, 
just edit the finished subroutine. The second limitation is that 
the program uses the background color to erase the offending 
line from the display. In doing this, it may inadvertently erase 
parts of other lines as well. This will not affect program opera- 
tion in any way, and when the program modifies itself, it will 
restore the erased parts as it redraws the display. 

Like the START key, this option will not work if you have 
just plotted a point. If you plotted a point in the wrong spot, 
finish the line before using the space bar. The last thing to 
note about this option is the way it handles the current draw- 
ing color. 

Superplot 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

0130 DIM MEM* ( 1 ) , CURSOR* (7) ,PX (20) , PY (20) , DRX 
(20) ,DRY(20) ,C(20) ,C0L(3) ,DEVICE*(15) ,fiN 
* (1 ) , JOY* (29) 
BC 40 LINENO = 20000:SETPM = 9020: INTARRAY = 7020:SE 

TDIS=8020:SAVLIN=11020 
m 50 PLTDR=2020:CHNBCOL=1020: SWITCH=3020:MODP 
ROG=6020:DELCOMND=4020: I NCOLOR=5020 : INIT 
ML=10020:UNTRAP=40000 
FLAG=0: P=l : C=l 

GOSUB INTARRAY: GOSUB INITML 

GRAPHICS 0:? :? : POKE 201,9:7 , " * * * SUPE 
R PLOT ***":POKE 201,10 
? :TRAP 90:? "ENTER CURSOR COLOR " ; : I NPUT 

CC:TRAP UNTRAP 

IF CC<0 OR CC>15 THEN 90 

TRAP 110:7 "ENTER CURSOR LUM I NANCE " ; : I N 

PUT CL:TRAP UNTRAP 

IF CL<0 OR CL>14 THEN 110 

TRAP 130:7 "ENTER BACKGROUND COLOR";: IN 

PUT BC:TRAP UNTRAP 

IF BC<0 OR BC>15 THEN 130 

TRAP 150:7 "ENTER BACKGROUND LUMINANCE" 

;: INPUT BL:TRAP UNTRAP 

IF BL<0 OR BL>14 THEN 150 

COL (3)=16*BC+BL 

FOR 1=0 TO 2 
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NA 60 


NI 


70 


HI 


80 


PA 90 


HF 


100 


OP 


110 


LB 


120 


HO 


130 


K 


140 


PI 


150 


LH 


160 


AG 


170 


AL 


180 
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IB 190 TRAP 190:? "ENTER COLOR FOR REG. ";I;:I 

NPUT RC:TRAP UNTRAP 
NF 200 IF RC<0 OR RC>15 THEN 190 
JJ210 TRAP 210:? "ENTER LUMINANCE FOR REG. "; 

I;: INPUT RL:TRAP UNTRAP 
NB 220 IF RL<0 OR RL>14 THEN 210 
DJ 230 COL ( I ) =16*RC+RL 
BO 240 NEXT I 

NH 250 BASE = PEEK ( 106) -16: POKE 106, BASE 
OF 260 GRAPHICS 7:C0L0R C:GOSUB SETDIS:GOSUB S 

ETPM 
IC 265 FOR 1=0 TO 2:P0KE 708+ I , COL ( I ) : NE X T I:P 

OKE 712, COLO) 
MS 280 DX = USR ( JOY, 0, 0) -1 
NJ 290 DY=USR ( JOY, 0, 1 ) -1 
DI 300 X = X + DX: Y = Y + DY 
EH310 IF X>159 THEN X = 
EL 320 IF X<0 THEN X=159 
AK 330 IF Y>95 THEN Y = : MEM* ( 1 ) = " <: , J " : MEM* < 255 

)="{,}":MEM*(2)=MEM* 
M 340 IF Y<0 THEN Y = 95 : MEM* ( 1 )="<:,}": MEM* ( 255 

) =" i, } " : MEM* (2) =MEM* 
CG 350 MEM* (Y+14, Y + 20) =CURSOR* 
OH 360 POKE 53248, X + 46 
OE 370 POKE 656,0:POKE 657,5:? X;" " ; : POKE 65 

7,13:? Y; " " ; 
EH 380 IF Y>91 AND ABS ( STR I G ( ) - 1 ) THEN GOSUB 

CHNGCOL:GOTO 280 
OP 390 IF ABS(STRIG (0) -1 ) THEN GOSUB PLTDR 
BO 400 KEY = PEEK (53279) : IF KEY<>7 THEN GOSUB SW 

ITCH 
KJ 405 IF PEEK(764)=33 THEN POKE 764 , 255 : GOSUB 

DELCOMND 
61 410 GOTO 280 
KD 1000 REM CHNGCOL 

6N1010 REM Changes current drawing color 
GK 1020 C=INT (X/40) 
IG 1030 COLOR C 

m 1040 POKE 656,0:POKE 657,21:PRINT C; 
CK 1050 C (P) =C 
KH 1060 RETURN 
CM 2000 REM PLTDR 
OF2010 REM PLOTs, DRAWTOs, and saves coardina 

tes 
PB 2020 IF FLAG THEN DRAWTO X,Y:POKE 656,0:POK 
E 657,30:? " D " ; : DRX ( P ) = X : DR Y ( P ) = Y : P=P+ 
l:GOTO 2050 
BD 2030 PLOT X, Y: PX (P) =X : PY (P) =Y 
NE 2040 POKE 656,0:POKE 657,30:? " P " ; 
LN 2050 FLAG = ABS (FLAG-1 ) 
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DH 2060 IF P = 21 THEN P = 20:GQSU3 MODPRQG 

MP 2065 IF STRIS(0)=0 THEN 2065 

NM2070 POKE 77,0:RETURN 

HJ 3000 REM SWITCH 

FG3010 REM Checks console switches 

CJ 3020 IF KEY = 3 THEN 60SUB SflVLIN — 

HF 3030 IF KEY = 5 THEN GDSUB INCOLDR 

00 3040 IF KEY = 6 THEN P = P-1: GDSUB MDDPROG 

KI 3050 RETURN 

00 4000 REM DELCOMND 

FG4010 REM Deletes last PLOT-DRAWTO and COLOR 

(if one was made) 
FI 4020 IF P=l THEN RETURN : REM just finished 

savi ng screen 
NB 4025 IF FLAG THEN RETURN : REM just PLOTted, 

must DRAWTO -first 
Ml 4030 COLOR 0:PLOT P X ( P- 1 ), PY ( P- 1 ): DRAWTO DR 

X (P-l ) , DRY (P-l ) 
IK 4040 COLOR C 

LJ 4050 IF C(P-1)=-1 THEN P = P-1:RETURN 
KH4055 IF P = 2 THEN C=C(l):COLOR C:POKE 657,21 

: ? C; : P=P-1 : RETURN 
KH 4060 C(P-1)=-1 

FE 4070 FOR I=P-1 TO 1 STEP -1 
HL 4080 IF C(IX>-1 THEN COLOR C ( I ) : C = C ( I ) : POK 

E 657,21:? C;:P=P-l:POP : RETURN 
0E 4090 NEXT I : P = P- 1 : RETURN 
LP 5000 REM INCOLOR 
PO5010 REM Change value of user-specified col 

or r eg i ster 

LJ 5020 GOSUB 5095:POKE 656,1:P0KE 657,2:? "En 
ter register to change ";: TRAP 5020: INP 
UT REG:TRAP UNTRAP 

IF REG<0 OR REG>4 OR REG=3 THEN 5020 
GOSUB 5095:POKE 656,l:POKE 657,2:? "En 
ter color"; : TRAP 5040: INPUT RC:TRAP UN 
TRAP 

IF RC<0 OR RC>15 THEN 5040 

GOSUB 5095:POKE 656,1:P0KE 657,2:? "En 

ter luminance" ;: TRAP 5060: INPUT RL:TRA 

P UNTRAP 

IF RL<0 OR RL>14 THEN 5060 

SETCOLOR REG,RC,RL 

GOSUB 5095 

IF REG=4 THEN COL ( 3 ) = 1 6* RC+RL : RETURN 

COL (REG) =16*RC+RL 

RETURN 

REM Short routine to clear prompt line 

POKE 656,1:P0KE 657,2:? "<36 SPACES}";: 

RETURN 



HH 5030 


OF 5040 


CM 5050 


IP 5060 


EB 5070 


KB 50B0 


CF 5085 


IJ 5087 


A0 5088 


KO 5090 


PP 5093 


HL 5095 



1 



78 






Chapter 3 



LM 6000 
CH 6010 
FB 6020 
AF 6025 
EK 6030 
HP 6040 
FE 6050 
JB 6055 
AO 6060 
ON 6065 



KH 6070 

LJ 6075 

EH 6080 

CG 6085 

EP 6100 

DP 6 1 1 

IF 6140 

NH 6145 

JD 6147 

HD 6148 
HE 6150 



KN 6 160 
BF 7000 
KM 7010 

611 7020 
GD 7030 
PA 7040 
EE 7050 
FF 7060 
BD 7070 
KP 7080 
HI 8000 
06 8010 

FK 8020 
DJ B030 
GL 8040 
HJ 8050 
CP 8060 
CF 8065 
FI 8070 



REM 

REM 

IF P 

POKE 

GRAP 

POSI 

FOR 

IF C 

IF I 

IF P 

HEN 

85 

IF P 

? " P 

? " P 

? "D 

LINE 

NEXT 

GOSU 

GRAP 

ATAB 

56 + 5 

HIGH 

GH: P 

POKE 

GOSU 

08+1 

= ADR 

RETU 

REM 

REM 

C ( a 

FOR 

PX ( I 

DRX ( 

C ( I ) 

NEXT 

C ( 1 ) 

RETU 

REM 

REM 

n 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

OT * 



MODPR 
Modi-f 
= OR 
5324 
HICS 
TION 
1 = 1 T 
( I ) <> 
= 1 TH 
X C I ) = 
? "DR 



OG 
i es 
FL 
8, 


2,2 
O P 
-1 
EN 
DRX 



( The biggie! ) 

program to add statements 
AG THEN P=P+1:RETURN 
:POKE 559,34:P0KE 54286,64 



: ? LINENO; " " ; 

THEN PRINT "C. " ; C ( I ) ; " : " ; 
6070 

(1-1) AND PY ( I > =DRY ( 1-1 > T 
; DRX ( I ) ; " , " ; DRY ( I ) : GOTO 60 



(I)=DRX(I) AND PY(I)=DRY(I) THEN 
PY ( I ) : GOTO 6085 



X 

L. 

L. 

R. 

NO = LI 

I 
B 115 
HICS 
= PEEK 
12: OF 
= INT ( 
OKE V 

559, 
B INT 
, COL ( 
(JOY* 
RN 

INTAR 
Initi 
rr ays 
1 = 1 T 
) =0: P 
I ) =0: 
= -1 

I 
= C 
RN 

SETDI 
Sets 

656 
657 
657 
657 
657 
656 
656 
**" ; 



PX ( I ) ; 
PX ( I ) 
DRX ( . 
NENO+10 



)| i irYlDlBDTD 
);","; PY ( I );":" ; 
I ) ; " , " ; DRY ( I ) 
-i- 1 a 



00 
7: G 
( 14 
FSE 
OFF 
TAB 
46: 
ARR 
I ) : 
) 



OSUB SETDIS: GOSUB 20000 

0)+256*PEEK(141) :AD=BASE*2 

T=AD-ATAB 

SET/256) : L0W=0FFSET-256*H I 

+2,L0W:POKE VTAB+3,HIGH 

POKE 53248, X+46 

AY:P=l:FOR 1=0 TO 2:P0KE 7 

NEXT I:POKE 7 1 2 , COL ( 3 ) : JOY 



RAY 

al izes PX ( 

O 20 
Y ( I ) =0 
DRY ( I ) =0 



PY ( , DRX ( , DRY ( , 



up display at bottom o-f scree 

0: POKE 752, 1 

2: ? "E^" ; X; " " ; 

10: ? "E^" ; Y; " " ; 

18:? " rii=» " ; r.- 

33: ? "CH" ; FRE (0) ; 

0:POKE 657,24:? " BEBBBB " S 

2:P0KE 657,11:? "*** SUPER PL 
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KC 8080 1 


HI 8090 1 


DB 8095 ' 


NF 8 1 1 

I 


J 

OK 8107 ] 


BO 8 108 1 


IL 8 1 10 1 


KL8 120 1 


DG 9000 1 


CB9010 1 


EE 9020 ' 


CK 9030 


IJ 9040 : 


AN 9050 


DP 9060 1 


1 

OH 9070 


DL 9080 t 


EA 9090 


II 9095 [ 


1 
JB9100 


GO 9 1 1 ! 


DM9120 


HH 9130 


FH 9 140 


BN 9 150 


AI 9160 


LB 9170 


KC 10000 


OL 10010 


AO 10020 


FO 10025 


PH 10030 


NI 10040 


KK 10050 


GL 10060 


NO 10500 



DLIST=PEEK(560)+256*PEEK(561) 

POKE DLIST+90,8 

TXTMEM=PEEKCDLIST+86)+256*PEEK<DLIST+8 

7) : RESTORE 8107 

FOR I=TXTMEM+120 TO T X TMEM+ 1 20+9 : RE AD 

BYTE:POKE I,BYTE:NEXT I 

DATA 0,0, 5, 85, 85, 170, 170, 175, 255, 2 55 

POKE DLIBT+89, 130: POKE DLIST+84,141 

POKE 512,0:POKE 513,6:P0KE 54286,192 

RETURN 

REM SETPM 

REM Initializes PM graphics 

VTAB=PEEK(134)+256*PEEK(135) 

ATAB=PEEK(140)+256*PEEK(141> 

BASE=BASE+12: POKE 54279, BASE 

0FFSET=(BASE*256+512)-ATAB 

HIGH=INT (OFFSET/256) :L0W=0FFSET-256*HI 

GH 

POKE VTAB+2, LOW: POKE VTAB+3,HIGH 

POKE VTAB+4, 0: POKE VTAB+5,1 

POKE VTAB+6, 0: POKE VTAB+7,1 

MEM*(l)="<:,J":MEMt(255)="<,>":MEM*<2) = 

MEM* 

POKE 704, 16*CC+CL 

RESTORE 9130:FOR 1=1 TO 7 

READ BYTE:CURSOR*(I, I)=CHR*(BYTE) :NEXT 

I 
DATA 0,32,32,216,32,32,0 
MEM*(Y+14,Y+20)=CURSOR* 
POKE 53248, X+46 
POKE 559,46:P0KE 53277,3 
RETURN 

REM INITML 

REM Initializes m / 1 interrupt routine 

s & joystick driver 

RESTORE 10500: Z=0 

IF PEEK ( 1536) =72 AND PEEK ( 1 597 ) =64 TH 

EN 10060 

READ BYTE: IF BYTE=-1 THEN POKE 512,0: 

POKE 513,6:G0T0 10060 

POKE 1536+Z,BYTE 

Z=Z+l:GOTO 10030 

JOY=ADR (JOY*) :RESTORE 10600:FOR Z=l T 

29:READ BYTE : JOY* ( Z , Z ) =CHR* ( BYTE ): N 

EXT Z:RETURN 

DATA 72, 138, 72, 169, 10, 162, 148, 141 , 10, 

212, 141, 23, 2 08, 142, 24, 208, 169, 6, 162, 3 

0, 141, 1,2, 142,0,2, 104, 170, 104 



"1 



80 



1 
1 



Chapter 3 



SF 10510 DATA 64,72,138,72,173,197,2,174,198,2 

,141, 10,212, 141, 23, 208, 142,24,208, 169 

,6, 162, 0, 141, 1,2, 142, 0,2, 104, 170 
DN 10520 DATA 104, 64 
HB 10530 DATA -1 
AO 10600 DATA 104,104,104,170,104,189,120,2,40 

, 176, 2, 74, 74, 41, 3, 56, 233, 2, 16,2, 169, 2 

, 133, 212, 169, 0, 133, 213, 96 
KD 1 1000 REM SAVLIN 

PI 11010 REM Saves lines to output device 
IC 11020 POKE 656, l! POKE 657,2:? "Enter output 
device" ;: INPUT DEVICE*: IF DEVICE*="" 
THEN 11040 
FL 11030 POKE 54286, 64: LIST DEV I CE$ , 20000 , 3276 

7:P0KE 512,0:POKE 513,6:P0KE 54286,19 

2 
LH 11040 GOSUB 5095:POKE 656,l:POKE 657,2:7 "C 

lear lines ( Y/N ) " ; : I NPUT AN* 
KE 11050 IF AN*="N" THEN GOSUB 5095:RETURN 
HG 11060 IF AN*<>"Y" THEN 11040 
DB 11070 POKE 53248, 0:POKE 559,34:P0KE 54286,6 

4 
IC 11080 GRAPHICS 0:POSITION 2 , 2 : COUNTER= 1 
HA 11090 FOR Z = 20000 TO LINENO STEP 10 
DH 11100 ? Z: COUNTER = COUNTER+l : IF COUNTER = 20 T 

HEN COUNTER=l : GOSUB 11500:7 CHR*(125) 

:POSITION 2,2 
DO11110 NEXT Z:GOSUB 11500 
EE 11120 GRAPHICS 7:G0SUB SETD I S : ATAB = PEEK ( 1 40 

)+256*PEEK(141):AD=BASE*256+512:0FFSE 

T=AD-ATAB 
LH 11 130 HIGH=INT (OFFSET/256) :L0W = 0FFSET-256*H 

IGH:POKE VTAB+2 , LOW : POKE VTAB+3,HIGH 
OL 11135 POKE 559,46:P0KE 53248, X + 46 
HN 11140 GOSUB INTARRAY: P=l : L I NENO = 20000 : FOR I 

=0 TO 2:P0KE 708+ I , COL ( I ) : NE X T I : POKE 
712, COL (3) :JOY=ADR(JOY*) 
NI 11 150 RETURN 

BC 11160 REM Short routine to do mod i -f i c at i ons 
AA11500 ? "CONT" : POSITION 0,0:POKE 842,13:ST0 

P 
60 11510 POKE 842, 12: RETURN 
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Graphics Plus 

James Luczak 

"Graphics Plus" is a utility that lets you design playfield graphics 
quickly and easily. It also produces the BASIC code so that you 
can use your creations in your own programs. 

"Graphics Plus" is a feature-packed utility. Here is a list of its 
features: 

• Graphics Plus is menu-driven, so there are no complicated 
sequences of operations to remember. 

• Pictures can be drawn in graphics modes 3-8. 

• Circles and ellipses or any part of a circle or ellipse can be 
drawn — just give size and location. 

• It draws lines. 

• All positioning is done by using cursor movement. Position 
the cursor with the arrow keys and press the appropriate key 
(the menu will keep you informed) and you're on your way. 

• Text can be added with graphics in any graphics mode. 

• Each drawing stored is assigned different line numbers. This 
allows many drawings to be stored without losing previously 
stored pictures. 

• Graphics Plus saves as many pictures as memory allows. 

• Any or all drawings can be erased from storage. 

• Pictures drawn in one mode can be displayed in any other 
graphics mode. 

• Graphics Plus can be used just as easily with cassette as with 
disk. 

Easy to Use 

Everything you need to know to use Graphics Plus appears in 
the text window at the bottom of the screen. The only excep- 
tion is the color command. By pressing 0, 1, 2, or 3 you will 
change the color you are drawing with (modes 3, 5, 7). The 
menu will show what color is being used. Remember, color 2 
will not show up in modes 4, 6, and 8. 

As an example, let's draw a square in graphics mode 5 
and save it. As Graphics Plus initializes, it puts you into 
graphics mode 7. So to draw in mode 5, press G. Now choose 
mode 5 by pressing 5. You will return to the main menu. No- 
tice that the mode has changed in the text window. To draw a 
line, choose option L. This will put you into the line draw 
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mode. A flashing cursor should be at the upper-left corner of 
the screen. Move the cursor around by using the arrow keys. 
Notice that the X,Y coordinates are shown in the text window. 
Also, the cursor will wrap around the screen vertically and 
horizontally. 

Let's draw the square. Place the cursor wherever you like. 
Then press P. You will hear a beep and the word PLOT will 
appear in the text window. Now move the cursor to where you 
want the line to end and press D. You will hear another beep 
and the word DRAWTO will take the place of PLOT in the text 
window. At the same time a line will be drawn from where 
you pressed P to where you pressed D. Press P again, move 
the cursor to the next corner of the square, and then press D. 
(The DRAWTO command will always draw the line from the 
position of the cursor when you last pressed P to the cursor's 
present position.) Continue in this manner until you have a 
square. 

If you want to remove the entire picture and start over, re- 
turn to the main menu (press RETURN), select the graphics op- 
tion (press G), and press 5 (for graphics mode 5). This will clear 
the screen. You can reenter the line draw mode by pressing L. 

If you want to remove only part of the picture, press 0. 
This will cause your next PLOT and DRAWTO to be in the 
background color, erasing the line (this works with circles and 
ellipses also). 

Saving Your Masterpiece 

Now that you have a picture, let's save it. Return to the main 
menu (press RETURN), then press P (picture submenu). The 
picture option will appear in the text window. Since we want 
to save the picture, press S. Watch the text window for instruc- 
tions. Using the arrow keys, position the cursor in the upper- 
left corner of the square. Make sure you place the cursor there. 
If you place it in the upper-left corner of the screen, you will 
save the entire screen (modes 3, 4, and 5 only). After the 
cursor is positioned, press S. You will hear a double beep. 
Now, using the arrow keys, move the cursor to the lower-right 
corner of the square, and press S again. 

The program will start to store the picture into a string 
(A$). There will be a delay, depending on how big the picture 
is and what graphics mode you're in. After the picture has 
been saved, you'll be asked to assign it a number. Assign it 

83 



Chapter 3 



the number 3. Press 3, then RETURN. The program will now 
enter the RETURN key mode and add the picture to the pro- 
gram starting at line 10300. If you assigned the picture the 
number 5, the saved picture would start at line 10500. Assign- 
ing the picture the number would start saving the picture at 
line 10000. After the picture has been saved, you'll be re- 
turned to the main menu. Saving the picture only saves it to 
memory; you'll need to use the quit option to resave the entire 
program (more on this below). 

If you want to save a picture and assign it the number of 
an already existing picture, don't worry. Graphics Plus will 
automatically check to see if there is a picture stored with that 
number and will erase it. Save the new picture in its place. 

This may sound a bit complicated, but once you try it, it 
becomes easy. Remember, the text window will always display 
all the information you need to work with. 

Some Options 

The program is quite simple to use since instructions appear 
on the screen as needed. Let's just review a few other options. 

In the picture submenu (press P in the main menu) the 
view option allows you to view the pictures that you have 
stored. For instance, if you've stored pictures 1, 2, 3, 4, and 5, 
and you enter the number 1, all of your pictures will be dis- 
played one after the other. If you choose 3 instead of 1, pic- 
tures 3-5 will be displayed. After the last picture is displayed, 
the main menu returns. 

Main menu options C and E (circle and ellipse) are easy 
to use. Position the cursor and provide the program with the 
information it requests. Keep an eye on the text window. 
When you position the cursor, you'll be asked if the position is 
correct. Answer yes or no. After you've entered all the nec- 
essary information, a summary of the circle or ellipse infor- 
mation will appear. Again you'll be asked if it's correct or not. 
If you answer yes, the circle or ellipse will be drawn. It's a 
good idea to write down this information. Later, if you want to 
erase the circle or ellipse, all that you'll need to do is use color 
and enter the same parameters. 

The comments option (K) allows text in any graphics 
mode. "Textplot" is used for text in graphics modes 3-7. Text 
in graphics mode 8 will be normal size. However, text in 
modes 3-7 will be larger than normal, depending on which 
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mode you're in. For instance, text in graphics 3 is really big. 
The article "Textplot" (COMPUTEI's First Book of Atari Graph- 
ics) will give you some ideas of what can be done with 
Textplot. 

The Quit option (Q) is very important. All pictures saved 
with Graphics Plus are only temporarily stored. The only time 
pictures are permanently saved is when you use the Quit op- 
tion. When Quit is used, the entire program is saved to disk or 
cassette, including the pictures you have saved. So, remember, 
if you want your drawings permanently saved, use the Quit 
option. As printed here, the program will be saved to disk 
when you use the Quit option. If you are a cassette user, you'll 
need to substitute this line for line 3700: 

3700 IF CHR$(A) = "Q" THEN CSAVE:GRAPHICS 0:CLR:END 

Adding Pictures to Programs 

Program 2 is an example of how to use the data created by 
Graphics Plus in your own programs. 

Start by listing the line numbers that contain the picture 
data you want into a temporary storage file. If you want to 
use, say, picture 5, the picture data will start with line 10500, 
and the last line with data for picture 5 will be the line num- 
ber with a return. 
Example: 

LIST " D: PICT 5 ", 10500, 10507 (Disk) 
LIST "C:",10500, 10507 (Cassette) 

Type in or load Program 2 and then enter the picture data. 
Example: 

ENTER " D: PICT 5" (Disk) 
ENTER "C:" (Cassette) 

That's all there is to it. By adjusting the X,Y coordinates, 
you can place your picture anywhere on the screen, as many 
times as you like. 

Program 1 . Graphics Plus 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PK 500 GRAPHICS 2:PQBITI0N 5,2:? #6 ; " GRAPH I CS " 
DI 520 POSITION 7,4:? #6; "PLUS" 
LJ 540 CLR : GOTO 3180 

BH 560 FOR Y = N TO Q:FOR X = M TO P:LOCATE X,Y,R: 
IF R=0 THEN R=4 
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PL 580 FL1=FRE(0) 

CN 600 S=S+1:IF FLK800 THEN 3060 

DO 620 A* (S, S) = CHR* (R + 64) : NEXT X:NEXT Y:T1=P-M 

+1 : U1=0-N: RETURN 
EA 640 SOUND 0,SD, 10, 10: FOR DELAY=1 TO 15:NEXT 

DELAY:BOUND , , , : RETURN 
GC 660 FOR 1 = 1 TO AQ:? " <.R I GHT J " ; : NEXT I : RETUR 

N 

BP 680 ? CHR*(125>:? " <UP} " ; D* ; " C3I";B;" ";G 

RPX; "X";GRPY; " ES";X;" MSB" ; Y : RETURN 
NP 700 ? CHR*(125):? "{UPJUSE ARROWS TO MOVE C 
URSOR":? "■^=PLOT ■ia=DRAWTO ■r3^iU:^^ = 
MENU": TI=1 : TIM=0 
EF 720 IF TIM THEN SOUND , 45 , 1 , 8 : FOR DELAY=1 

TO 5:NEXT DELAY:SOUND 0,0,0,0 
PF 740 IF X>GRPX THEN X = 
PF 760 IF X<0 THEN X=GRPX 
PH 780 IF Y>GRPY THEN Y = 
PD 800 IF Y<0 THEN Y = GRPY 
AG 820 LOCATE X,Y,QZ 
FO 840 IF QZ=0 THEN F = F5:G = 

AI 860 IF QZ = 1 OR QZ = 2 OR QZ = 3 THEN F = 0:G = QZ 
NH880 TI = 1:IF TIM>8 AND B> = 6 THEN TI=4 
HJ 900 COLOR F:PLOT X,Y:FOR DELAY=1 TO BJ:NEXT 

DELAY 
LH920 COLOR G:PLOT X,Y 

KC940 ? "X="; X, "Y=" ; Y, "■HUHEM " ;F5;" ";C$;" 
€UPJ":IF DRP=1 THEN COLOR F:PLOT LPX,LP 
Y 
m 960 IF PEEK(764)=50 THEN POKE 764 , 255 : F5=0 : 

GOTO 720 
NO 980 IF PEEK(764)=31 THEN POKE 764 , 255 : F5= 1 : 

GOTO 720 
PO1000 IF PEEK(764)=30 THEN POKE 764,255:F5 = 2 

:GOTO 720 
AB1020 IF PEEK(764)=26 THEN POKE 764,255:F5 = 3 

:GOTO 720 
EI 1040 IF PEEK(764)=7 THEN POKE 764 , 255 : X = X + T 

I : TIM=TIM+1 : GOTO 720 
EL 1060 IF PEEK(764)=6 THEN POKE 764 , 255 : X = X-T 

I : TIM-TIM+1 : GOTO 720 
HN 1080 IF PEEK(764)=15 THEN POKE 764,255:Y = Y + 

TI: TIM=TIM+1 : GOTO 720 
HH1100 IF PEEK(764)=14 THEN POKE 764,255:Y = Y- 

TI: TIM=TIM+1 : GOTO 720 
FL1120 IF K=l OR K = 2 THEN 1220 

LK1140 IF PEEK(764)=10 THEN POKE 764,255:LPX = 
X:LPY = Y:DRP=1: II ■ 1 1 j 1 :SD=120:GOSU 
B 640: TIM=0: GOTO 720 
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LA 1160 IF PEEK(764)=58 THEN POKE 764 , 255 : COLO 
R F5:PL0T X,Y:DRAWTO LPX , LP Y : DRP = : C* = 

" ■> 3 :T: 1? IH TM " : 5D = 80: GDSUB 640 : T I M = : GOTO 

720 
BH1180 IF PEEK(764)=12 THEN POKE 764,255:G0T0 

3460 
PI 1200 POKE 764, 255: TIM = 0: GOTO 720 
LJ 1220 IF PEEK(764>=62 THEN POKE 764,255:SD = 6 

0:GOSUB 640:RETURN 
KB 1240 IF PEEK(764)=12 AND K = 2 THEN POKE 764, 

255: GOTO 3460 
PD 1260 POKE 764, 255: TIM = 0: GOTO 720 
NE 1280 K=l:7 CHR*(125):7 " £UP > POS I T I ON CURSOR 
TO UPPER LEFT CORNER OF PICTURE TO BE 
SAVED. THEN PRESS WMM" ■ GOSUB 720 
IP 1300 M=X: N=Y: SD = 45: GOSUB 640 
CH 1320 ? CHR*(125):7 "< UP J POS I T I ON CURSOR TO 

LOWER RIGHT CORNER OF PICTURE TO BE SA 

VED.THEN PRESS IES" : GOSUB 720 
KD 1340 P=X: Q = Y: SD = 25: GOSUB 640 : S = : K = : A* = " " 
KI 1360 IF P<M OR Q<N THEN 1280 
NK 1380 IF (P-M) * (Q-N) >3299 THEN 3060 
CH 1400 ? CHR*(125):7 "{8 RPfinFR TETm.-T:Ti><:MJ. 

MSBUMEEM " - BOSUB 560 
EK 1420 GRAPHICS 0:? CHR* ( 1 25 ) : POKE 84,10:POKE 

85,6:? " »=T:VJ=»:«Ji<»hilJ:]=M:mSl.l^I» " 
BK 1440 ? :POKE 85,6:7 "PICTURES SAVED "; 
PN 1460 Rl = 1480: TE=1 : R = 0: R2 = 0: GOTO 2380 
m 1480 TE=0: R=0 
OC 1500 7 : POKE 85,6:7 "ENTER PICTURE NUMBER " 

; : TRAP 1520: INPUT SR:TRAP 40000:GOTO 1 

540 
NI 1520 7 " <3 UP>":GOTO 1500 
6N 1540 SM=1 :R1 = 1560: TE=1 : SS = 0: GOTO 2660 
AI 1560 T = T1 :U = U1 : TE = 0: SM = 0: SS = 
LH 1580 POKE 82, 2: SR1=100: SR2= <SR*100) +10000: S 

R3=LEN(A*):SR4=0:SS=0:SR5=SR1-99:SR6=0 
ON 1600 GRAPHICS 0:7 CHR* ( 1 25 ) : POS I T I ON 2,5 
PJ 1620 7 SR2 + SR4; " REM " : SR7 = SR2 + SR4 : SR4 = SR4+ 1 
10 1640 7 SR2 + SR4;" IF TE=1 THEN RETURN ": SR4 = S 

R4+1 
PK 1660 IF SR3M00 THEN 1700 
KC 1680 7 SR2 + SR4; " A*= " ; CHR* ( 34 ) ; A* ; CHR* ( 34 ) : 

SS=1 : SR4=SR4+1 : GOTO 1720 
CI 1700 7 SR2 + SR4; " A* ( " ; SR5 ; " ) = " ; CHR* ( 34 ) ; A* ( 

SR5,SR1) ; CHR* (34) :SR1=SR1+95:SR4=SR4+1 

: SR5=SRl-9 4: SR6=SR6+1 
DC 1720 IF SS=1 THEN ? SR7;" T= " ; T ; " : U= " ; U ; " : B 

1 = " 5 B; " : SU=" ; SR4; " : SQ=" ; SR: 7 SR2 + SR4; " 

RETURN":GOTO 1800 
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FK 1740 

EA 1760 

EE 1780 

KD 1S00 

FA 1820 

CJ 1840 

DK 1860 

FP 1880 

NB 1900 

LE 1920 

FE 1940 

AH 1960 

CD 1980 



NO 2000 
KE 2020 
LG 2040 
60 2060 

OP 2080 



JI 2100 
DH 2120 

FN 2140 
OB 2160 
NB 2180 
DF 2200 
m 2220 
FC 2240 

FA 2260 
PG 2280 
ME 2300 
AH 2320 

NK 2340 
IN 2360 
EI 2380 

AC 2400 
IE 2420 
BL 2440 



IF SR6>3 THEN SR6=0:GOTO 1800 

IF SR3>SR1 THEN 1700 

SR1=SR3: SS=1 : GOTO 1700 

POSITION 0,0:POKE 842 , 1 3 : POS I T I ON 2,22 

:? "CONT" 

POSITION 2.2:ST0P 




? 

Rl = 

TE = 

: TR 

20 

? " 

SRI 

TRA 

IF 

RAP 

K = 2 

OSI 



PICTURES AVAILABLE ARE 
1980: TE=1 : R=0:R2=0: GOTO 2380 
0:R=0:7 :? "ENTER PICTURE NUMBER "; 
AP 2000: INPUT SR:TRAP 40000: GOTO 20 



S=l 

TRA 

400 

NEX 

IF 

GOT 

IF 

GOT 

? C 



<3 UP>":GOTO 1980 
= (SR*100) +10000 

P 2200:GOSUB SR1:TRAP 40000 
SET=1 THEN B=B1 : X=0: Y=0: TRAP 3100:G 
HICS B:TRAP 40000:GDTO 2100 
:? CHR*(125):7 "<:UP>USE CURSOR TO P 
TION LOCATION OF PICTURE. THEN PRESS 
GOSUB 720: K=0 

R W=Y TO Y+U:POSITION X,W 
460:7 #6; A* (S, S+T-l ) : S=S+T: TRAP 



: FO 
P 3 
00 
T W 
SET 
3 
SET 
3 
HR* 



=1 THEN GOTO 2500 

460 

=1 THEN SET=0 

460 

( 125) : ? " {UP}! 



UIEH FROM TO LAST 



? " 
Rl = 
TE = 
7 • 

UT 

? " 

SET 

TRA 

00: 

IF 

GOT 

TRA 

000 



PICT 
2300 
0: R = 
? " E 
SR: T 
C3 U 
= 1 : R 
P 24 
? SO 
R2<1 
O Rl 
P 24 
: R2 = 



URES AVAILABLE ARE " ; 

: TE=1 : R=0: R2=0: GOTO 2380 



NTER PICTURE # " ; : TRAP 2340: INP 

RAP 40000:GOTO 2360 

Pi": GOTO 2320 

2=0:GOTO 2440 

00:GOSUB 10000+ (R* 100) : TRAP 400 

;",";: R=R+1 : R2=0: GOTO 2380 

5 THEN R2=R2+1 : R=R+1 : GOTO 2380 

60:GOSUB 1 0000+ ( SR* 1 00 ): TRAP 40 
0:GOTO 2020 
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KL 2460 IF R2<15 THEN R2 = R2+ 1 : SR = SR+ 1 : GOTO 244 


6H 2480 SET = 0:6OTO 3460 
KD 2500 SR=SR+1:A*= SD = 50:GDSUB 640:SD = 75:GD 

SUB 2520:GQSUB 640:FOR DELAY=1 TO 400: 

NEXT DELAY:TRAP 3 1 00 : GR APH I CS B:TRAP 4 

0000:GDTO 2440 
ID 2520 7 CHR*<125):7 "<:UP}C7 ^orFQ T i — n i i 

I : j jggMSEl 3 WKXM = " ;B:? "17 SPACES J HSEaCZj 

mnmMais EsnMnmxm* ";sq : return 

OH 2540 7 CHR*(125):7 "<:UPJC9 RPAfFR) gI!Md-rn^ 

MS&MSEEMMM " ; ^r>=naf- nnRim 640: SD=B0: GOS 

UB 640: SD=160: GDSUB 640 
OJ 2560 ? "PICTURES AVAILABLE " ; : R 1 =2580 : R = : R 

2=0: TE=1 : GOTO 23B0 
PF 2580 R = 0:TE = 0:? :? "PICTURE # TO K3MMHr3^ 

ZX3Bt" : 7 "(KB FOR ALL) (KB FOR MENU) "; 

: INPUT SR$:IF SR*="A" THEN SR=0:GOTO 2 

980 
OP 2600 IF SR*="R" THEN 3460 
CA 2620 TRAP 2640 : SR = VAL ( SR$ ): TRAP 40000:SM = 0: 

SS=0:GOTO 2660 
NA 2640 GOTO 2540 

KL2660 SR1 = 10000+(SR*100) :SR2 = 0:SR3 = 
HP 2680 TRAP Rl:GOSUB SR1:TRAP 40000 
CA 2700 GRAPHICS 0:7 CHR* ( 1 25 ) : POKE 82,2:P0SIT 

ION 2,5 
HO 2720 IF SR2M5 THEN 2800 
JK 2740 IF SR3>SU THEN SS=l:GOTO 2800 
OH 2760 ? SR1+SR3 

NJ 2780 SR2 = SR2+1 : SR3 = SR3+1 : GOTO 2720 
BE 2800 POSITION 0,0:POKE 842 , 1 3 : POS I T I ON 2,22 

:? "CONT" 
FB 2820 POSITION 2,2:ST0P 
CK 2840 POKE 842, 12 

DL 2860 7 CHR* ( 125) : POSITION 2,5 
BF 2880 IF SS=1 AND SM=1 THEN GOSUB 2960:GOTO 

1560 
FC 2900 IF SS=1 AND SN=1 THEN 2980 
HG 2920 IF SS=1 THEN GOSUB 2960:TRAP 3100:GRAP 

HICS B:TRAP 40000:POKE 82,0:GOTO 3460 
FD 2940 SR2 = 0:GOTO 2740 
LF2960 R2 = 0:SR2 = 0:SR3 = 0:SS = 0:SM = 0:SN = 0: RETURN 

PI 2980 R2 = 0: SR2 = 0: SR3 = 0:SS = 0: IF SN=1 THEN SR = 

SR+1 
HO 3000 SR1= (SR*100) +10000: SN=1 : TRAP 3020:GOSU 

B SR1:TRAP 40000 : R2=0 : GOTO 2700 
JN3020 IF R2<15 THEN R2 = R2+ 1 : SR = SR+ 1 : GOTO 300 
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00 3040 

KN 3060 
BD 3080 



m 3100 

BO 3120 



CP 3140 



OL 3 160 
FI 3180 



HG 3200 



BN 3220 
EF 3240 
LA 3260 



NO 3280 

EP 3300 
HN 3320 
NL 3340 

BD 3360 

HB 3380 

PE 3400 
LO 3420 
DJ 3440 

DB 3460 
IC 3480 
PC 3500 
CF 3520 



JG 3540 



LC 3560 
BM 35B0 




u 

IF B=6 OR B = 7 THEN GRPX= 1 59 : GRP Y=79 : 

= 4 

IF B=8 THEN GRPX=3 1 9 : GRP Y= 1 59 : GOSUB 

20: BJ=4 

TRAP 3100: GRAPHICS B:TRAP 40000 

POKE 82,0 

FM=0: IF B=B THEN POKE 710,156:POKE 

, 156: POKE 709, 

REM **** MENU **** 

SD=200:GOSUB 640 : SD=250 : GOSUB 640 

POKE 752, 1 

? CHR*(125):7 " CUP>BEB=C I RCLE 

{3 SPACES>BT^=ELLIPSE EMI=LINE":? " 

=COMMENTS " ; 

7 "■EB=GR.MODE Hai=PICT MENU":? " KE 

UITt5 SP ACES > »»Mg.kM =" ; F5; " f 3 SPACE 

REM 

C*=" " : POKE 752, 1 



KE 712 



~ 



SPACES)! 
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flO 3600 

HA 3620 

NA 3640 
LD 3660 
hC 3680 
OD 3700 

PG 3720 
PK 3740 
PO 3760 
AC 3780 
LO 3800 
ND 3820 
OD 3840 

BL 3860 



ND 3880 
LB 3900 
LA 3920 
HA 3940 
HD 3960 
NH 3980 
LE 4120 



JK 4140 
CL 4160 

AG 4180 



FG 4200 

PC 4220 

DC 4240 
KJ 4260 



HO 4280 
JC 4300 
J6 4320 



#1, A: IF CHR* ( A ) = " C 
: GOTO 4120 
HR* (A) ="E" 
4120 



BET 

IF C 
: GOT 
IF C 
IF C 
IF C 
IF C 
RAPH 
IF C 
IF C 
IF C 
IF C 
IF C 
GOTO 
? CH 



RE OPTION MENU ** 



THEN 
THEN E=1:D*=" 



D*="MS3IE 



D*=" ' 
3260 
3840 
SAVE 



HR*(A)="L" THEN 
HR*<A)="G" THEN 
HR* (A) ="P" THEN 
HR*<A)="Q" THEN 
ICS 0:CLR :END 
HR*(A)="0" THEN 
HR*(A)="1" THEN 
HR*(A)="2" THEN 
HR*(A>="3" THEN 
HR*(A)="K" THEN 

3460 
R*<125>:? "£UP><:6 SPACES} 



K=0:GOTO 700 
'Ds GRAPLUS" : G 



F5=0: GOTO 
F5=l : GOTO 
F5=2: GOTO 
F5=3: GOTO 
5980 



3460 
3460 
3460 
3460 



5B3LH 



? " 
DC5 
ERA 
IF 
IF 
IF 
IF 
IF 
GOT 
K = 2 
LAC 
SET 
K = 
GOS 
TRA 
R: 

TRA 

" . . 
j ■ 

STP 

TRA 

<4 

220 

TRA 

ES 

TRA 

GOS 

; "<: 

? " 
<Y 

43 
GOT 
FL = 
SOU 



ih SPACESJ 
SPACES> 



SAVE<3 SPACES}«M=LOA 
VIEW":? "C6 SPACES>Ba= 



=RETURN TO MENU' 

THEN 1280 

THEN 

THEN 

THEN 

THEN 



: GET #1 , A 



SE 

CHR* (A) ="S" 
CHR* (A) ="L" 
CHR* (A) ="E" 
CHR* (A) ="V" 
CHR* (A) ="R" 
O 3840 

:? CHR*(125):? "{UPJUSE CURSOR 

E X Y COORDINATES":? "PRESS 

POSITION ■:;=Hll:]M =MENU" : GOSUB 



1920 
2540 
2240 
3460 



TO P 

TO 
720: 



UB 4980: IF E=l THEN 4580 

P 4160:GOSUB 680:? " RAD I US= " ; : I NPUT 

TRAP 40000:GOSUB 5180 

P 4180: AQ=1 1 : GOSUB 660:? "<:UP>STEP = 

INPUT STP:TRAP 40000: IF STP = THEN 

= 1 

P 4200:? "DEGREES START=C4 SPACES> 

LEFT> ";: INPUT ST:TRAP 40000:GOSUB 5 

P 4220: AQ=18: GOSUB 660:? "CUPJDEGRE 

ST0P=<:4 SPACES>{4 LEFT J ";: I NPUT SP: 

P 40000:GOSUB 5220 

UB 680:? " ■:T:M*I£B " ; R; " BA^JI " ; RTP 

8 SPACES>CORRECT" 

ES3B£HXE" ; ST; " ■ >3^rmAfiT-g " ; SP ; " 

OR NJ":GET #1,A:IF CHR*(A)="Y" THEN 

00 

O 4120 

0:FOR N=ST TO SP STEP STP 

ND 0,0,0,0 
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FP 4360 


FD 4380 


ED 4400 


FB 4420 


FA 4440 


BP 4460 


FJ 4480 


IB 4500 


NL 4520 


JK 4540 


NF 4560 


JK 4580 



BE 4340 X1 = X-R*COS(N/180*3. 1416) :Y1=Y+R*SIN(N/ 

180*3. 1416) : COLOR F5 

SOUND 0, 100, 10, 12 

IF XK0 THEN X1=0+ABS(X1) 

IF X1>GRPX THEN X 1 =GRP X -ABS < X 1 > : I F Xl< 

THEN X1=GRPX-ABS (XI > 

IF YK0 THEN Y1=0+ABS(Y1) 

IF Y1>GRPY THEN Y 1 =GRP Y-ABS ( Y 1 ) : I F Yl< 

THEN Y1=GRPY-ABS (Yl ) 

IF E=l THEN RETURN 

IF FL=1 THEN 4520 

PLOT X1,Y1:FL=1 

DRAWTO XI, Yl 

NEXT N:SOUND 0,0,0,0:FL=0 

GOTO 3460 

GOSUB 680:TRAP 4580:? " LENGTH= " ; : I NPUT 
C:TRAP 40000 
AK 4600 TRAP 4600 : AQ= 1 2 : GOSUB 660:? " {UP} HE I GH 

T=";: INPUT D:TRAP 40000 
AH 4620 TRAP 4620 : AQ = 23 : GOSUB 660:? "CUP>STEP = 

";: INPUT STP:TRAP 40000: IF STP=0 THEN 

STP=1 
GG 4640 TRAP 4640:? "DEGREES START=t4 SPACES} 

<4 LEFT} ";: INPUT ST:TRAP 40000:GOSUB 5 

220 
AD 4660 TRAP 4660 : AQ= 1 9 : GOSUB 660:? "<:UP>DEGRE 

ES ST0P=t4 SPACES}{4 LEFT} " ; : I NPUT SP: 

TRAP 40000:GOSUB 5220 
DJ 4680 GOSUB 680:? " MMMHS3JB" ; C ; " B:iJ.w:iig ";D 

;" m^ki^zB " 5 STP; "CORRECT" 

? " ■ 3 =J<m.-*TiT-*& " ; 5 T ; " BETjaEBUlB " ; SP; " 

(Y OR N) " 

GET #1,A:IF CHR* < A ) = " Y " THEN 4780 

IF CHR*(A)="N" THEN 4120 

GOTO 4680 

DEG 

FL=0:FDR N=ST TO SP STEP STP 

SOUND 0,0,0,0 

Xl=X-( (C/2) *COS(N) ) :Yl=Y-( (D/2) *SIN(N) 

) 

GOSUB 4380 

IF FL=1 THEN 4920 

PLOT X1,Y1:FL=1 

DRAWTO XI, Yl 

SOUND 0, 80, 10, 10: NEXT N:SOUND 0,0,0,0: 

E=0: FL=0: RAD 

GOTO 3460 

IF X=GRPX THEN X=X-1 

IF Y=GRPY THEN Y=Y-1 

IF X=0 THEN X=l 
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JD 4700 


K6 4720 


LG 4740 


NN 4760 


KD 4780 


JH 4800 


JL 4820 


JA 4840 


CB 4860 


GB 4880 


IF 4900 


NP 4920 


OH 4940 


NJ 4960 


LE 4980 


KI 5000 


BA 5020 
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BE 5040 
LF 5060 

LB 5080 
00 5100 



AH 5120 
CA 5140 



MP 5160 
0J 5180 
KH 5200 
KD 5220 

IJ 5240 

IN 5260 

HD 5280 

KI 5300 

EK 5320 

NH 5340 

OH 5360 

EE 5380 

KJ 5400 

IE 5420 

00 5440 

CF 5460 

FD 5480 

EL 5500 

BK 5520 

CH 5540 

CH 5560 

CF 5580 

CD 5600 

00 5620 

OB 5640 

NF 5660 

HB 5680 

HA 5700 

IP 5720 

CK 5740 

NN 5760 

JF 5780 

DA 5800 



IF Y = 
COLOR 
X, Y-l 
REM 
FOR S 
{UP}« 
£RIGH 
A 

IF CH 
IF CH 
: DRAW 
POP : 
? " C2 
IF R> 
RETUR 
IF ST 
EN PO 
IF ST 
HEN P 
IF SP 
EN PO 
IF SP 
HEN P 
RETUR 
IF B2 
RESTO 
FOR I 
SOUND 
ML = AD 
RETUR 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



THEN Y=l 

F5:PL0T X-i,Y:DRAWTO X+l,Y:PLOT 
:DRAWTO X,Y+1 



= 1 TO 29:? "<:RIGHT>": 
HEjESSM" : FOR S=l TO 
TJ "; : NEXT S: 

R*(A)="Y" THEN COLOR 
R*(A)="N" THEN COLOR 
TO X+l,Y:PLOT X,Y-1:D 
COLOR F5:G0T0 4120 

UP>":GOTO 4980 
GRPY-1 THEN POP :GOTO 
N 

ST>360 

CUP> " ; 

ST>360 

"(UP) " 



<0 
P 

<0 
OP 

<0 

p 
<0 

OP 
N 

= 1 
RE 
= 1 



OR 
7 

OR 

: ? 

OR SP>360 

GOTO 4220 

OR SP>360 

:GOTO 4660 



AND D*=" 
GOTO 420 
AND D*=" 
:GOTO 46 
AND D*=" 

AND D*=" 



NEXT S:? " 

: GET #1 , 

F5: RETURN 

0: PLOT X-l , Y 

RAWTO X,Y+1: 



4160 

E H3Sga i" TH 




iBMisgiar t 

40 

gsjuamai " th 



THEN RETURN 

5420: B2=l 

TO 168:READ A:R*(I 
0, A, 10,6: NEXT I : SOUN 
R (R*) 
N 

104, 201 , 4, 240, 9, 170 
240, 5, 104, 104, 202, 208 
251, 96, 104, 133, 215, 10 

133. 214. 104. 104. 168. 1 
133, 217, 104, 133, 216, 1 

104. 240. 236. 133. 212. 2 
165, 214, 101, 88, 133, 21 
165, 89, 101 , 215, 133, 21 
152, 2 40, 15, 165, 214, 10 
64, 133, 214, 165, 215, 10 
1, 133, 215, 136, 208, 241 
132, 221, 160,0, 132, 220 
177, 216, 160, 0, 170, 16 

1 , 136, 132, 213, 138, 41 
96, 208, 4, 169, 64, 16 
14, 201 , 32, 208, 4, 169 
0, 16,6, 201 , 64, 208 
2, 169, 32, 133, 218, 138 
41 ,31,5, 218, 133, 218 
169, 0, 162, 3,6,218 



, I ) =CHR* (A) 
D 0,0,0,0 



4 

04 
04 

4 
4 
5 
5 
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CE 5820 
PL 5840 
DC 5B60 
FD 5880 
CI 5900 
LI 5920 
AD 5940 
AP 5960 
DA 5980 



DB 6000 
IC 6020 
KK 6040 
KP 6060 
LP 6080 
N8 6100 
LO 6120 

m 6140 

GH 6160 

LN 6180 
CN 6200 



BC 6220 
BO 6240 

MG 6260 
OJ 6280 
BL 6300 
EK 6320 
GJ 6340 

m 6360 
GE 6380 



KJ 6400 
BE 6420 
DK 6440 
FE 6460 
NF 6480 
HD 6500 
HO 6520 
MI 6540 
IK 6560 
ON 6580 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
? CH 



m 



TURN 
IF B 
K = 2 
IF C 
IF C 
IF C 
SOTO 
? " -C 
PUT 
GOTO 
? " {. 
INPU 
FOR 
? CH 
URSO 
OMME 
IF K 
GOSU 
USR ( 
K = 0: 
GOSU 
IF B 
IF B 
FOR 
R (15 
K = 0: 
REST 
EAD 

708 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



42, 
2, 1 
218 
214 
208 
40, 
215 
221 
R* (1 
DB" : 

TO 
= 8 T 



202, 2 
33, 21 
69, 2 
,200, 
, 182, 
133, 2 
,230, 
,208, 
25) : "? 



08, 250, 109, 244 
9, 164,221 , 177 



9, 164, 221 , 177 
13, 164, 220, 145 
132, 220, 196, 21 




THEN 6120 
THEN 6160 
THEN 3460 



ENTER COMMENT TO B 



T*=' 



HR* (A) ="E 
HR* (A) ="D 
HR* (A) ="R 

5980 
UP} 
T*: IF 

6200 
UPJBHIBH 
T T*: IF T 
1=1 TO LE 
R* ( 125) : ? 
R":? "PRE 
NT" 



I ; 1 3 3 3 ii 



IN 



THEN 5980 



*="" THEN 5980 

N(T*) :T* ( I, I ) =" " -NEXT I 

"<:UP>USE ARROWS TO POS C 
SS S TO ENTER OR DELETE C 



= 2 T 
B 72 
ML, C 
GOTO 
B 72 
= 7 T 
= 5 T 
1 = 1 
36, R 
GOTO 
ORE 
A: PO 
, A: N 
104 

11, 
251 
104 
144 
170 
176 
144 
250 
104 



HEN 6280 
0: COL=INT( 
OL, ROW, ADR 

3460 


HEN COL=IN 
HEN COL=IN 
TO LEN(T*> 
, F, COL+I, R 

3460 
6400: MIL=1 
KE MIL+I,A 
EXT I:SOUN 
, 240, 10, 20 
170, 104, 10 
, 169, 253, 7 
,133, 195, 1 
,4,41,127, 
, 141 , 250, 6 
, 15, 169, 64 
, 2, 169, 224 
,6, 141 , 250 
, 141 , 251 ,6 



X/8) :R0W=INT(Y/8) :U = 
(T*) , LEN (T*) ) 



T (X/8) : ROW=Y 

T (X/16) : ROW=Y 

: R=ASC (T* (1,1)): V=US 

OW) : NEXT I 

536:F0R 1=0 TO 252:R 

:SOUND 0, A, 10, 6:P0KE 

D 0, 0, 0, 0: RETURN 

1 , 4, 240 

4, 202, 208 

6, 164, 246 

04, 201 , 128 

198, 195 

, 224, 96 

, 224,32 

,24, 109 

, 6, 104 

, 104, 104 
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FL 6600 DATA 141,252,6,14,252,6 

OL 6620 DATA 104,104,141,253,6,133 

AK 6640 DATA 186,166,87,169,10,224 

6D 6660 DATA 3,240,8,169,20,224 

BC 6680 DATA 5,240,2,169,40,133 

DG 6700 DATA 207,133,187,165,88,133 

PJ 6720 DATA 203,165,89,133,204,32 

8J 6740 DATA 228,6,24,173,252,6 

OH 6760 DATA 101,203,133,203,144,2 

BP 6780 DATA 230,204,24,165,203,101 

EJ 6800 DATA 212,133,203,165,204,101 

PB 6820 DATA 213,133,204,173,250,6 

AN 6840 DATA 133,187,169,8,133,186 

HJ 6860 DATA 32,228,6,165,212,133 

PC 6880 DATA 205,173,244,2,101,213 

IN 6900 DATA 133,206,160,0,162,8 

PK 6920 DATA 169,0,133,208,133,209 

AL 6940 DATA 177,205,69,195,72,104 

GH 6960 DATA 10,72,144,8,24,173 

JL 6980 DATA 251,6,5,208,133,208 

CE 7000 DATA 224,1,240,8,6,208 

JL 7020 DATA 38,209,6,208,38,209 

CB 7040 DATA 202,208,228,104,152,72 

PA 7060 DATA 160,0,165,209,145,203 

FB 7080 DATA 200,165,208,145,203,104 

BP7100 DATA 168,24,165,203,101,207 

OC7120 DATA 133,203,144,2,230,204 

HN7140 DATA 200,192,8,208,183,96 

JB7160 DATA 169,0,133,212,162,8 

JA7180 DATA 70,186,144,3,24,101 

EH 7200 DATA 187,106,102,212,202,208 

FH 7220 DATA 243,133,213,96,0,1 

FB 7240 DATA 28 



Program 2. Graphics Plus Demo 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

OH 60 GRAPHICS 

AF 70 ? "ENTER X COORDINATE ";: INPUT X 

AI 80 ? "ENTER Y COORDINATE ";: INPUT Y 

HF 90 GRAPHICS 5:REM ** TRY OTHER GR. MODES *» 

LM 100 DIM A*<300):REM ** DIM A* TO THE AMOUNT 

YOUR PICTURE USES ** 
PH110 S=l:GOSUB 10300:REM ** USE THE LINE NUM 

BER FOR YOUR PICTURE HERE ** 
OD 120 FOR W = Y TO Y + U 
OE 130 POSITION X, W 
UN 140 ? #6; A* (S, S + T-l ) 
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PI 150 S = S + T 

CN 160 NEXT W 

GP 170 END 

FF 10300 T=17: U=16:B1=5: SU=5:SQ=3: REM ** B1=GR 
.MODE SU = # OF LINES USED FOR PICTURE 
SQ=PICTURE NUMBER ** 

BA 10301 IF TE=1 THEN RETURN : REM ** THIS LINE 
CAN BE DELETED ** 

m 10302 A* ( 1 ) ="DDDDDAAAAAAADDDDDDDDAAADDDDDAA 
ADDDDDAADDBBBBBDDAADDDAADBBDDDDDBBDAA 
DDADBBDCCCCCDBBDADAADBDCCDDDCCDBD" 

If! 10303 A* ( 101 > = "AAADBDCCDBBBDCCDBDAADBDCDBBD 
BBDCDBDAADBDCDBDDDBDCDBDAADBDCDBBDBBD 
CDBDAADBDCCDBBBDCCDBDAAADBDCCD" 

FJ 10304 A* ( 196) ="DDCCDBDAADADBBDCCCCCDBBDADDA 
ADBBDDDDDBBDAADDDAADDBBBBBDDAADDDDDAA 
ADDDDDAAADDDDDDDDAAAAAAADDDDD" 

NJ 10305 RETURN 






" 



96 



_ 



Turtle Graphics in 
Atari BASIC 



Prabhudeva Kavi 



By adding just a short subroutine to your BASIC programs, you 
can simulate some turtle graphics commands. 

Here is a BASIC subroutine (modified from Charles Brannon's 
"Turtle Pilot for the Atari/' COMPUTE!, October 1982) that al- 
lows you to add turtle graphics to Atari BASIC. Turtle graph- 
ics will not affect the BASIC graphics statements in any way, 
and both turtle and BASIC graphics statements can be used at 
the same time. 

Here are descriptions of how to use turtle graphics. 

Turn the turtle: 

TURN = X:GOSUB 31010 Turns the turtle clockwise X degrees if X 

is positive, and counterclockwise X de- 
grees if X is negative. 

Turnto: 

TURTA = 90-X Changes the angle of the turtle to the 

value of X. North is degrees; south is 
180 degrees; east and west are 90 and 
270 degrees respectively. 

Draw: 

LINEL = X: GOSUB 31020 Moves turtle X units in the direction it is 

facing; leaves a trail. 

Move the turtle: 

LINEL = X: GOSUB 31060 Like Draw, but doesn't leave a trail. 

Move to: 

TURTX = X:TURTY = Y Moves turtle to X,Y location without 

leaving a trail. The range of X co- 
ordinates is from — 79 to 80; for Y it is 
— 48 to 47. The origin is at the center of 
the screen. 

Programs 2 and 3 use the subroutines in Program 1. Type 
in Program 1 and save it. Add each of the other programs to 
Program 1. 
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Program 1 . Turtle Subroutine 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

AM PI=3. 1415927/180: TURTA = 90 

GH31000 REM TURTLE GRAPHICS SUBROUTINES 

KD 31010 TURTA=TURTA-TURN: TURTA=TURTA-360* (TUR 

TA>360) +360* (TURTA<0) : RETURN : REM TUR 

N TURTLE 
NH31020 TRAP 31030:PLQT TURTX +79 , 4B-TURTY : REM 

LAST TURTLE LOCATION 
PH31030 TURTX=TURTX+LINEL*COS (TURTA*PI > : TURTY 

=TURTY+LINEL*SIN (TURTA*PI ) : REM FIGURE 
NEW COORDINATES 
DA31040 TRAP 31050:DRAWTO TURT X + 79 , 4B-TURTY : T 

RAP 40000:REM DRAW IT 
NJ 31050 RETURN 
KE 31060 TURTX = TURTX + LINEL*COS (TURTAtPI) : TURTY 

=TURTY+LINEL*SIN <TURTA*PI ) : RETURN : RE 

M MOVE WITHOUT DRAWING 



Program 2. Spiral 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

DE 20 GRAPHICS B+ 1 6 : SETCOLOR 2,0,0:COLOR 1 : TUR 

TX=80: TURTY=-4B 
LI 30 FOR 1 = 1 TO 140: LINEL=I : GOSUB 31020:TURN = 

91:G0SUB 31010:NEXT I 
AB40 GOTO 40 



Program 3. Snowflake 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

CI 20 GRAPHICS 7+16:C0L0R 1 : SETCOLOR 0,0,14 

BP 30 FOR 1 = 1 TO 18: TURN = 20: GOSUB 31010-.FOR J = 

1 TO 5: LINEL=35: GOSUB 3 1 020 : TURN= 1 44 : GOS 

UB 31010:NEXT J:NEXT I 
A8 40 GOTO 40 
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Guardian 

Heath Lawrence 



Can you save the scientists from the invading aliens in this fast- 
action shooting game? Requires one joystick. 

The year is 1997. Alien starships have abducted most of 
Earth's key scientists for their own diabolical purposes. Those 
remaining have been taken to a powerful armed bunker for 
special protection. The base is shielded by an enormous de- 
fense field projected above the main compound. However, the 
aliens are not easily discouraged and launch deadly attacks 
against the force-field generators. Your mission as commander 
of the guardian bunker is to use the three ground-based tur- 
rets to destroy the incoming energy thieves. The fate of our 
scientists is in your hands. 

Playing the Game 

The enemy attack ships make continuous runs across the 
screen, getting lower with each complete pass. When they fi- 
nally make a successful run below your energy field, the 
protective shield will drop momentarily. This period of time is 
just long enough for the alien mothership to kidnap one of 
your scientists with its transport beam. 

The height of the force field is indicated by the two ar- 
rows at the sides of the playfield. When an enemy drone in- 
flicts a power loss, these arrows will point outward showing 
that the shield is down. After a scientist has been taken, a 
successor will run to take his place. Five points are given for 
each ship that is destroyed. Unfortunately, your force shield 
rises when certain scores are reached (depending on your skill 
level). This allows the aliens to reach the shield much faster. 

Your only weapons against the intruders are the three tur- 
rets that are stationed at the bottom of the screen. Each gun is 
fired by pushing the joystick to the side of the desired turret. 
Pushing the joystick forward will fire the center gun. The red 
trigger button is not used for firing. You can have only one 
shot on the screen at once, so all your shots should be very 
carefully timed. 
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Guardian 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 



PD 1 T 
LE 5 G 
IA 10 
FC 15 
HH 2 5 
ND 3 
PC 4 

NC 4 5 

KD 5 

HN 5 5 

FC 6 
KO 65 
EN 7 

PC 7 2 
JG 7 3 

BC 7 4 
IG 75 
MF 80 

HA 8 5 

IJ 95 

Ptl 100 



= 1 

as 

GO 
GO 
RE 
IF 
S = 
R + 
IF 
: F 
IF 
FL 
IF 
UN 
IF 
RE 
PO 
7, 
: " 
IF 
02 
IF 
5: 
E = 
SO 
RE 
PO 

P 
IF 
39 
PO 
: N 

P 



UB 245: I 
SUB 285 
SUB 75 

FLAG2 T 
STICK (0) 
LN* 1B + LN 

S=7 THE 
LAG=1 : FL 

S=14 TH 
AG=1 : FLA 

FLAG=1 
D 1 , X, 10 

FLAG TH 
M BI33Hi 
SITIDN 2 
1 : ? "HI : 
; GUYS 

VALUE=H 



F T THEN GDSUB 350 



HEN 60 

: IF S=ll THEN D I R=-LN+ 1 : POS=SC 

-36:FLAG=1:FLAG2=1: SHOT=70 

N DIR = -LN-1 : POS = SCR + LN * 1 8 + LN-5 

AG2=1 : SHDT=71 

EN DIR=-LN: POS=SCR+LN* 18+LN/2: 

G2=l : SH0T=86 

THEN FOR X=l TO 255 STEP 12:S0 

,8:NEXT X : SOUND 1,0,0,0 

EN GOSUB 130 



giiaa 



, 1 : ? "SCORE: "; VALUE: POSITION 1 
"; HI : POSITION 28,1:7 "SAFE MEN 

VAL THEN HVAL=HVAL+INC: GOSUB 2 



VALUE=BONUS THEN FOR X=l TO 100 STEP 
SOUND 1 , X, 10, 8:NEXT X : GUYS=GUYS+ 1 : VALU 
VALUE+10:BONUS=BONUS+100 
UND 1,0,0,0: GOTO 15 

KE LOC,BLA:LOC=LOC+VEC:Pl=PEEK(LOC) : IF 
l=SHOT THEN 0=LOC:GOSUB 155:RETURN 
Pl=BOU THEN Nl=Nl+2: LOC=SCR+LN* N 1 +LN- 

KE L0C,EN1:IF N1>ALT THEN POKE LOC,BLA 
1=4: L0C=SCR+LN*Nl+LN-39: GOSUB 210 
OKE MOT, BLANK: MOT=MOT+ZON: P2=PEEK (MOT) 
IF P2=SH0T THEN 0=MOT:GOSUB 155:RETURN 



HF 105 IF P2 = B0U THEN N2 = N2 + 2 : M0T = SCR + LN*N2 + LN 

-2 
LC115 POKE M0T,EN2:IF N2>ALT THEN POKE MOT.BL 

A:N2=4:M0T=SCR+LN*N2+LN-2: GOSUB 210 
HD 120 RETURN 
BN 125 REM WSEBHM &EUSi 
EO 130 P3 = PEEK (POS + DIR) : IF P3 = B0U THEN FLAG = 0: 

FLAG2=0:POKE POS , BL A : RETURN 
MH135 IF P3 = EN2 THEN = MOT:GOSUB 155:RETURN 
LA 140 IF P3 = EN1 THEN = LOC:GOSUB 155:RETURN 
PK 145 POKE POS, BLA: POS = POS + DIR: POKE POS, SHOT: 

RETURN 
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up 150 rem anaa ^a anacaj 

AN 155 POKE PQS,BLA:PGKE O , EXP : FLAG=0 : FL AG2=0 : 

VALUE=VALUE+5 
HF 160 FOR X = l TO 10:SOUND 1 , 50 , 1 , 1 5 : SOUND 1, 

0,0,0: NEXT X 
BB 161 POKE 0, BLA 

AL162 IF = LOC THEN N 1 =4 : LOC=SCR+LN*N 1 +LN-39 : 

POKE LOC, EN1 : RETURN 
NP 170 N2 = 4: M0T = SCR + LN*N2 + LN-2: POKE M0T,EN2:RE 

TURN 
UN 175 REM !>3:J;lg l fc3:g mi l.U.M.,>.' , 
CO 180 POKE SCR+LN*SH+1 , SHIE1 : POKE BCR + LN*SH + 3 

8, SHIE2: RETURN 
HI 185 REM rrT:1ZI =M.l«J WT 
HI 190 FOR J = l TO 30:SOUND , 64- J , 1 , 1 : SOUND 

1 ,F+J, 10, 10: FOR K=l TO 30-J:NEXT K:SOUN 

D 0, 0,0, 0: SOUND 1,0,0,0 
GO 192 FOR K=l TO 10:NEXT K:NEXT J:POSITION 15 

,10:7 "GAME VER " : POS I T I ON 37,1:7 "0":I 

F VALUE>HI THEN HI=VALUE 
BN 195 GUYS=T1 : HVAL=T2: POSITION 7,11:7 "PRESS 

START TO PLAY AGAIN": IF PEEK ( 53279 ) <>6 

THEN 195 
CM 200 GOTO 10 

HD201 REM HZtri^^-rf^aZMagiMriaHrtZfci 
AG 202 POKE SCR + LN*SH+1 , BLA: POKE SCR + LN* SH + 38 , 

BLA: ALT=ALT-2: SH=SH-2: IF SH<5 THEN SH=S 

H+2: ALT=ALT+2 
HJ 204 GOSUB 180: RETURN 

ch 205 rem gjmasEarjrjasiniciEis 

F6 210 POKE SCR + LN*SH+1 , SHIE2: POKE SCR + LN*SH + 3 

B,SHIE1:F0R 1=1 TO 10:SOUND 1,100,10,8: 

SOUND 1,0,0,0:NEXT I 
KC215 FOR 1 = 1 TO 20:POKE SCR + LN- 1 5+ I *LN , BOU : S 

OUND 1 , I , 8, 15: NEXT I : FOR 1=20 TO 1 STEP 
-1:P0KE SCR+LN-15+I*LN, BLA 
AB 220 NEXT I : GU YS = GUYS- 1 : I F GUYS< 1 THEN GOTO 

190 
AC 225 SOUND 1,0,0,0:FOR 1=35 TO 26 STEP -1:P0 

SITION 1,20:7 "h":SOUND 1 , 90 , 1 , 1 5 : FOR 

D=l TO 10: NEXT D 
HC 230 POSITION 1,20:7 "i":SOUND 1,0,0,0:FOR D 

=1 TO 10:NEXT D:POSITION 1,20:7 " ":NEX 

T I:POSITION 25,20:7 " i " 
m 235 GOSUB 180:RETURN 
IF 240 REM r^MSTJESaEBHl^! 
BK 245 POKE 1 06 , PEEK ( 1 06 ) -5 : GRAPH I CS 0:POKE 75 

2,l:P0SITION 12,1:7 " C N > i F J { M > [31231321131 

tM> CG> <!NJ ": POSITION 9,3 
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HL 246 



KK 247 



KJ 248 



CG 252 



DI 253 

KB 280 
LN 285 

OK 290 



E6 295 



FP 300 
BB 305 



HI 315 



PE 320 



NJ 325 



JJ 345 
EN 350 

OF 370 



FDR X=l TO 10:SOUND 0,9 
TO 5:NEXT K:SOUND 0,0,0 
NEXT K:NEXT X 

" &ESM '3MHMMHM HaBOQ " : RE 



? "BY >> HEATH LA WRENCE " : FOR X=l TO 10: 
SOUND 0, 95, 10, 15: FOR K= 1 TO 5:NEXT K:SO 
UND 0,0,0,0:FOR K=l TO 5:NEXT K 
NEXT X:POSITION 1,6:? " BSBgHfiHaECai BBB 
■KIIIlE^aS" : POSITION 1,8:? " MnESMMEnKXSnS 

MMSSHniMISB " : sniiNn 1,0,0,0 

POSITION 1,10:? " MMWMSa^MIS3MMMnM3BE Sa El 

EKffi" ; : INPUT SKL: HVAL=SKL* 1 0: INC = HVAL:G 

UYS=SKL+1 

T1=GUYS: T2=HVAL 

5, 10, 15: FOR K=l 

,0:FOR K=l TO 5 

POSITION 9, 13: ? 

TURN 

rem egoEngEiooEE 

GRAPHICS 0:POKE 756 , ST/256 : SETCOLOR 2,0 

, 0: POKE 752, 1 

SCR=PEEK(88)+256*PEEK(89):ALT=16:SH=15: 

LN=40:BOU=128:BR1=103:BLA=0:EN1=101:EN2 

=102:FLAG2=0:EXP=83:SHOT=86 

L0C=SCR+LN*4+LN-39:M0T=SCR+LN*4+LN-3:N1 

=4:N2=4:VEC=1:ZON=-1:SHIE1=30:SHIE2=28: 

VALUE=0:FLAG=0:BONUS=100 

rem aaaaEDEiaMiigE 

POSITION 19,19:? " ab t DOWN> C3 LEFT>gggg" 
:POSITION 3,19:? " c {DOWN} {LEFT} g " : POS I T 
ION 36,19:? " d {DOWN} {LEFT} g " : POS I T I ON 1 
0, 10: ? 

FOR 1=0 TO LN-l:POKE SCR+ I , BOU : NEXT I:F 
OR 1=0 TO LN-l:POKE SCR+LN* 22+ I , BOU : NEX 
T I 

1=0 TO 22:P0KE SCR+ I * LN , BOU : NEX T Is 
1=0 TO 22:P0KE SCR+LN- 1 + I *LN , BOU : NE 



1 = 1 TO LN-2:P0KE SCR + LN*2 1 + I , BR 1 : NE 
:POSITION 25,20:? "i":GOSUB 175:RET 



IN 385 


DATA 


HH 390 


DATA 


JB 395 


DATA 


CD 400 


DATA 


AN 405 


DATA 


ND 410 


DATA 


BL 415 


DATA 


JN 420 


DATA 
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FOR 

FOR 

XT I 

FOR 

XT I 

URN 

REM 

Z=776:T=0:ST=(PEEK(106)+1)*256:FOR X=0 

TO 1023:POKE ST+X , PEEK ( 57344+ X ): NEX T X 

FOR N=l TO 9:F0R X=0 TO 7:READ A:POKE S 

T+Z+X,A:NEXT X:Z=Z+B:NEXT NiRETURN 
1 , 1, 1,255, 129, 255, 129, 255 
128, 128, 128, 255, 129, 255, 129, 255 
3,6, 12, 24, 126, 195, 129, 255 
192, 96, 48, 28, 126, 195, 129, 255 
192, 88, 243, 95, 95, 243, 88, 192 
60, 100, 207, 26, 26, 207, 100, 60 
145, 118, 132, 17, 128, 42, 128, 41 
24, 219, 126, 60, 24, 24, 60, 102, 24, 24, 2 

4, 255, 24, 24, 60, 102 



- Mt. Rock 



Steven M. Low 



Quick reflexes are what you need to save the city from being cov- 
ered by mud. Joystick required. 

There's been a lot of rain lately at Mt. Rock. Now the moun- 
tain is sliding into the city. Each mud rock that falls on the 
city means less time to evacuate the residents. More time is 
needed and your role is clear. Flying above the city in your 
copter, you must fire at each mud ball and turn it into dust 
and hope that the high winds will prevent it from falling on 
the city. 

Game Play 

The game requires a 30-second initialization. Push the joystick 
trigger or computer START key to begin. Overlapping waste 
masses are indestructible. A collision with a mud ball, the 
mountain, city, upper borders, or side borders returns the cop- 
ter to the landing pad. Points are accrued by turning a mud 
ball into dust (use the joystick button). The game ends when 
the city is completely buried. Restart the game by pressing the 
START key. Replay setup takes only five seconds. 

Be sure to save a copy of the program before you try to 
run it. 

Mt. Rock 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

SG 160 GOTO 510 

m 170 REM 

Oft 180 BURY = BURY+1 : LINE = B5- (BURY-1 ) 

NO 190 POKE 87,7:PL0T 53 , L I NE : DRAWTO 159, LINE 

JK 200 IF LJNE069 THEN FALLEN=0 : RETURN 

01210 FOR 1=0 TO 3:S0UND I , , , : NEX T I 

JI 220 GOTO 1910 

HJ 230 REM 

LI 240 JS=PEEK<632> :YX=YX+STX(JS) :YY = YY + STY(JS 

) : IF YX>208 THEN YX=208:REM Calculates 

players moves 
KJ 250 X=USR<ADR(POK«) ,PLX,YX,PLY,YY) 
KJ 260 IF PEEK(644)=1 THEN GOTO 350 
HE 270 REM {DOWN} Player shoots CDOWN> 
BO 280 X=USR(ADR(POK*) ,PMBASE+768+YY+4,3,PMBAS 

E+768+YY+5, 3) : FOR 1=6 TO 20 STEP 2:P0KE 
53252, YX-I : NEXT I 
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CA 340 


AK 350 


HH 360 


AF 370 


BE 380 


AK 390 
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EK290 X = USR ( ADR (POK$) , PMBASE + 768 + Y Y + 4 , , PMBAS 

E+76B+YY+5, 0) 

KF 300 REM {DOWN} Did you hit any nuke waste? 

IE310 POW = PEEK (53256) : IF P0W = 2 THEN WX = 55:WY = 

60: S = B+1 : POKE 87 , 2 : POS I T I ON 17,1:? #6 ; S 

. H ii 

i 

CO 320 IF PQW = 4 THEN W2 X = 73 : W2Y= 1 00 : S = S+ 1 : POKE 

87, 2: POSITION 17,1:? #6;S;" 

DP 330 IF P0W = 8 THEN W3X = 90 : W3Y= 1 65 : S = S+ 1 : POKE 

87, 2: POSITION 17,1:? #6;S;" " 

REM CDOWNJ Calculate nuke moves {DOWN} 

IF WX<135 THEN W X=WX +4 : WY=WY+4 

IF WX>134 THEN WY=WY+8:IF WY>209 THEN W 

X=55:WY=60:FALLEN=FALLEN+1 

IF W2X<125 THEN W2 Y=W2Y-2 : W2 X =W2 X+4 

IF W2X>124 THEN W2Y=W2Y+6 : W2 X=W2 X+3 : I F 

W2Y>209 THEN W2 X=73 : W2 Y= 1 00 : FALLEN=FALL 

EN+1 

IF W3X<122 THEN W3X=W3X +2 : W3Y=W3Y-5 

IF W3X>121 THEN W3X=W3X+ 1 : W3Y=W3Y+4 : I F 

W3Y>209 THEN W3 X=90 : W3Y= 1 65 : FALLEN=FALL 

EN+1 
HK410 IF FALLEN>=1 THEN GOSUB 180 
IG 420 REM CDOWN> Coll. Reg. keep plyr in 

CD0WNJC13 SPACES>bounds 
HD 430 IF PEEK (53260X >0 THEN YX= 1 64 : YY= 1 74 
HF 440 IF PEEK (53252) <>0 THEN YX= 1 64 : YY= 1 74 
NE 450 REM <DOWN> Actual ML moves players 

<DOWN> 
JA460 X=USR(ADR(POK*) ,PLX + l,WX,PLY+l,WY,PLX + 2 

,W2X,PLY+2,W2Y,PLX+3,W3X,PLY+3,W3Y) 
HP 470 SOUND 1 , WY, 2, 8: SOUND 2 , W2 Y , 2 , 8 : SOUND 3, 

W3Y, 2, 8 

POKE 53278, 0:REM HITCLR 

GOTO 240 

REM INITIALIZATION 

RESTART=0:DIM POK* (25) , LEDR* (2) ,STX(15) 

, STY ( 15) : GOSUB 1S50:GOSUB 17B0:GOSUB 21 

70 

REM 

GRAPHICS 7+16 

SETCOLOR 0, 1 , 9: BETCOLOR 1 , , 4 : SETCOLOR 

4,3, 2: SETCOLOR 2,12,6 

POKE 559,0:GOSUB 1310 

REM BACKGROUND DRAWING 

REM MOUNTAINS 

COLOR l:PLOT 7,1:DRAWT0 7,4 

COLOR 2:PL0T 0,5:DRAWTO 10,5:DRAWTO 10, 

12:C0L0R 1 : PLOT 0,12:DRAWTO 15,12 
SD 600 DRAWTO 20,23:DRAWTO 22,23:DRAWT0 27,27 
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GH 490 


KB 500 


FH 510 


HL 520 


LC 530 


OG 540 


EH 550 


GL 560 


DO 570 


PM 580 


ED 590 
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JI610 COLOR 2:PL0T 0,27:DRAWTO 28,27:DRAWT0 2 

8, 34 
IJ 620 COLOR l:PLOT 0,35:DRAWTO 32,35 
EL 630 DRAWTO 34,41:DRAWT0 36,46:DRAWT0 40,50: 

DRAWTO 43,58:DRAWT0 0,58 
NC 640 COLOR 2:PL0T 44,59:DRAWT0 44,67 
JK 650 COLOR l:PLOT 0,68:DRAWTO 52,68 
EB 660 DRAWTO 52,85:DRAWT0 0,B5 
IB 670 REM 
HI 680 COLOR l:PLOT 0,1: POKE 765 , 1 : POS I T I ON 0, 

4: XIO 18, #6, 0, 0, "S: " 
PN 690 COLOR 2:PL0T 0,5:POKE 765 , 2 : POS I T I ON 0, 

1 1 : XIO 18, #6, 0, 0, "S: " 
CH 700 COLOR l:PLOT 0,12:POKE 765 , 1 : POS I T I ON 

, 26: XIO 18, #6, 0, 0, "S: " 
CP710 COLOR 2:PL0T 0,27:POKE 765 , 2 : POS I T I ON 

, 34: XIO 18, #6, 0, 0, "S: " 
DK 720 COLOR 2:PL0T 0,58:POKE 765 , 2 : POS I T I ON 

, 67: XIO 18, #6, 0, 0, "S: " 
DE 730 COLOR 1 : PLOT 0,35:POKE 765 , 1 : POS I T I ON 

,58:XI0 18, #6, 0, 0, "S: " 
EB 740 PLOT 0,59:PDKE 765 , 1 : POS I T I ON 0,85:XIO 

18, #6, 0, 0, "S: " 
OH 750 COLOR 2:DRAWT0 0,1:DRAWTO 159,1 
OP 760 REM This is the city 
IC 770 REM 
LP 780 COLOR 3:F0R X=60 TO 66 STEP 2:F0R Y = 75 

TO 85:PL0T X,Y:NEXT Y:NEXT X : REM ftrtifa 

cting col or 
PN 790 COLOR 3:F0R X = 70 TO 74:F0R Y = 73 TO 85:P 

LOT X,Y:NEXT Y:NEXT X : COLOR 1 : PLOT 71,7 

5:PL0T 72,80:PLOT 73,77 
KD 800 COLOR l:FOR X = 78 TO 84:F0R Y = 70 TO 85:P 

LOT X,Y:NEXT Y:NEXT X 
KL810 COLOR 0:PLOT 79,71:PL0T 80,80:PLOT 81,7 

5:PL0T 82,77:PL0T 83,73 
BH 820 COLOR 3:F0R X = 89 TO 95 STEP 2:F0R Y = 73 

TO 85:PL0T X,Y:NEXT Y:NEXT X 
BE 830 COLOR 1 : FOR X=90 TO 96 STEP 2:F0R Y = 73 

TO 85:PL0T X,Y:NEXT YsNEXT X 
IE 840 COLOR 2:FDR X=90 TO 96 STEP 2:F0R Y = 74 

TO 84 STEP 2:PL0T X,Y:NEXT Y:NEXT X 
PD 850 COLOR 3:F0R X = 100 TO 110:FOR Y = 80 TO 85 

: PLOT X,Y:NEXT Y:NEXT X 
JM 860 X=1:Y = 80 
GP 870 X = X+1 : Y = Y-1 
ON 880 PLOT 100+X , Y: DRAWTO 110-X,Y:IF Y = 77 THE 

N GOTO 900 
HJ 890 GOTO 870 
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EC 900 COLOR l:PLOT 101 ,81: PLOT 103,84:PLOT 10 
3,B2:PL0T 104,82:PLOT 106,84:FOR X=107 
TO 109:PLOT X,B4:NEXT X 
AK910 COLOR 2:F0R X = 105 TO 108:PLOT X,B1:NEXT 

X 
BK 920 COLOR 2:PL0T 1 1 5 , 85 : DR A WTO 115,69:PL0T 

125, 69: DRAWTO 125,85 
DF 930 COLOR 1 : PLOT 1 1 5 , 69 : DRA WTO 125,69 
DJ 940 PLOT 120, 70: DRAWTO 120,85 
BN 950 COLOR 2:PL0T 1 1 5 , 85 : DR AWTO 125,69:PL0T 

125, 85: DRAWTO 115,69 
AG 960 COLOR 3:FOR X = 127 TO 131:F0R Y = 75 TO 77 

:PLOT X,Y:NEXT Y:NEXT X 
DK 970 COLOR 2:PL0T 1 27 , 85 : DRAWTO 127,75 
BL 980 COLOR 1 : FOR X = 128 TO 129:PL0T X,75:NEXT 

X 
HJ 990 COLOR l:FOR X = 135 TO 159 STEP 2:F0R Y = 8 

TO 85:PL0T X,Y:NEXT Y:NEXT X 
CD 1000 COLOR 0:PLOT 137,81:PL0T 139,84:PL0T 1 
45,82:F0R X=150 TO 153:F0R Y=83 TO 85: 
PLOT X,Y:NEXT Y:NEXT X 
COLOR l:PLOT 136,83:PL0T 144,83 
COLOR 2:F0R X=146 TO 149:F0R Y=77 TO 7 
9:PL0T X,Y:NEXT Y:NEXT X 
PLOT 147, 77: DRAWTO 159,73 
IF RESTART=1 THEN 1060 
GOSUB 1450:GOSUB 1150 

POKE 559,62:P0KE 53277, 3:REM Enable P/ 
M Gr. 
JC 1070 POKE 87, 2: POSITION 0,1: 
POKE B7, 2: POSITION 11,1 
£4 SPACES}" 
GG 10B0 FOR V0L=15 TO STEP -0.1:SOUND 0,10,1 
2,V0L:NEXT VOL:REM Ding! 
IF PEEKC53279) =6 THEN 240 
IF PEEK(644)=0 THEN 240 
GOTO 1090 
END 
REM 

REM CUSTOMIZED CHARACTER SET 
CS = 256* (PM-2) : POKE 756,CS/256 

FOR 1 = 128 TO 207-.POKE CS+ I , PEEK ( 57344+ — 
I):NEXT I:REM . £3 SPACES>ROM NUMBER SE 
T 
HD1170 RESTORE 1180:FOR 1 = 1 TO 10:READ NC:FOR 
J = TO 7:READ CC:POKE CS+ ( ( NC*8 ) + J ) , C 
C:NEXT J:NEXT I 
IN1180 DATA 45,130,198,238,254,254,238,238,23 

B 

011190 DATA 51 , 126, 192, 192, 62, 2, 254, 252, 24B 
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NF 


1010 


DH 


1020 


HJ 


1030 


NN 


1040 


JB 


1050 


BF 


1060 



: REM 


Enable 1 


#6; ' 
? #6: 


'ISk! IsIiMa 
! "SCORE 



BB 


1090 


JH 


1 100 


HB 


1 1 10 


JL 


1 120 


KJ 


1 130 


CK 


1 1 40 


EH 


1 150 


EN 


1 160 
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BG 1200 DATA 35,62,126,192,192,192,254,126,62 
CM 1210 DATA 47,124,124,230,230,230,230,126,62 
HC 1220 DATA 50,252,196,252,252,254,206,206,20 

6 
HP 1230 DATA 37,254,224,248,224,254,254,254,25 

4 
SA 1240 DATA 52,254,254,56,56,56,56,56,56 
HI 1250 DATA 46,198,230,246,254,222,206,206,20 

6 
JL 1260 DATA 53,198,198,198,198,254,254,254,12 

4 
HC 1270 DATA 43,198,204,216,240,248,222,222,22 

2 
KL 1280 RETURN 

HK 1290 REM ALTER DISPLAY LIST 
AH 1300 REM GR. 2 ABOVE GR. 7 
KH 1310 DL=PEEK(560)+PEEK(561>*256 
HH 1320 POKE DL + 3, 71 

KL 1330 SCR = PEEK (88) +256*PEEK (89) 
6E 1340 SCR = SCR-20 
OK 1350 REM Line 1370 re-aligns t h e C 1 5 SPACESJG 

R. 7 screen to le-ft edqe{13 SPACES>of s 

creen by altering 
IH 1360 REM Display Li5t.{25 SPACES>Ever see th 

is be-fore ? 
BH 1370 X = USR (ADR (POK*> , 88, SCR) : REM The 

{7 SPACESJML program handles HI byte L 

OUKB SPACES>byte problem 
FK 1380 POKE DL + 94, 65: POKE DL + 95 , PEEK ( 560 ): POK 

E DL+96, PEEK (561 ) 
KN 1390 RETURN 
JM 1400 END 

PH 1410 REM INITIALIZE VBLANK PM 
N6 1450 IF PEEK ( 1696) =104 THEN RESTORE 1750:GO 

TO 1470 
BJ 1460 RESTORE 1640:FOR 1 = 1536 TO 1706:READ A 

: POKE I , A: NEXT I 
FG 1470 FOR 1 = 1774 TO 17B7:P0KE I,0:NEXT I 
BG 1480 PM = PEEK ( 106) -32: POKE 54279 , PM : PMBASE = 2 

56*PM 
FB 1490 FOR I=PMBASE+1023 TO PMBASE + 2047 : POKE 

I,0:NEXT I:FOR I=PMBASE+768 TO PMBASE+ 

1022:POKE I,0:NEXT I 
IL 1500 FOR 1=0 TO 7:READ A:POKE PMBASE+ 1 025+ 1 

, A: NEXT I 
JA 1510 FOR 1=0 TO 7:READ A:POKE PMBASE+ 1 28 1 + 1 

, A: NEXT I 

MB 1520 RESTORE 1760:FOR 1=0 TO 7:READ A:POKE 
PMBASE+1537+I , A: NEXT I 
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HG 1530 RESTORE 1760:FOR 1=0 TO 7:READ A:POKE 

PMBASE+1793+I , A: NEXT I 
H6 1540 POKE 704, 16*10+6:POKE 705 , 1 6*3+8 : POKE 

706, 16*2+10: POKE 707,16*14+6 
HL 1550 PLX = 5324B: PL Y= 1 780 : PLL= 1 784 : POKE 623,4 

:POKE 1788, PM+4: POKE 54279, PM 
FK 1560 X = USR ( 1696) : REM > VBlank PM < 

<9 SPACES>This only needs executed one 

e 
JN 1570 YX = 164: YY=174: WX = 55: WY = 60: W2X=73: W2Y=1 

00:W3X=90:W3Y=165 
HP 1580 POKE PLL,8:P0KE PLL+1,8:P0KE PLL + 2,8:P 

OKE PLL+3,8 
HF 1590 POKE PLX,YX:PDKE PLY,YY:POKE PLX+l.WX: 

POKE PLY+1 , WY: POKE PLX+2 , W2X : POKE PLY+ 

2, W2Y 
CB1600 POKE PLX + 3, W3X:P0KE PLY + 3,W3Y 
KI 1610 RETURN 

FO 1620 REM VBLANK INTERRUPT ROUTINE 
GC1630 REM For moving P/M Graphics 
HH 1640 DATA 162,3,189,244,6,240,89,56,221,240 

,6, 240, 83, 141, 254, 6, 106, 141 
DO 1650 DATA 255,6,142,253,6,24,169,0,109,253, 

6, 24, 109, 252, 6, 133, 204, 133 
EK 1660 DATA 206,189,240,6,133,203,173,254,6,1 

33, 205, 189, 248, 6, 170, 232, 46, 255 
EL 1670 DATA 6,144,16,168,177,203,145,205,169, 

0, 145, 203, 136, 202, 208, 244, 76, 87 
PH 1680 DATA 6,160,0,177,203,145,205,169,0,145 

,203, 200, 202, 2 08, 244, 174, 253, 6 
LE 1690 DATA 173,254,6,157,240,6,189,236,6,240 

,48, 133, 203, 24, 138, 141, 253, 6 
ND1700 DATA 109,235,6,133,204,24,173,253,6,10 

9, 252, 6, 133, 20 6, 189, 240, 6, 133 
GK1710 DATA 205,189,248,6,170,160,0,177,203,1 

45, 205, 200, 202, 208, 248, 174, 253, 6 
CF 1720 DATA 169,0,157,236,6,202,48,3,76,2,6,7 

6, 98, 228, 0,0, 104, 169 
ON 1730 DATA 7,162,6,160,0,32,92,228,96 
DA 1740 REM {DOWN} P/M Data {DOWN} 
HP 1750 DATA 252,32,35,255,248,240,240,224 
IG 1760 DATA 0,24,124,62,62,126,59,24 
KN1770 REM {DOWN} Initialize stick values 

£DOWN> 
m 1780 STX(5)=6:STX(6)=6:STX(7)=8:STX(9)=-6:S 

TX(10)=-6:BTX(11)=-8:STX(13)=0:STX(14) 

= 0: STX ( 15) =0 
ML 1790 STY(5)=6:STY(6)=-6:STY(7)=0:STY(9)=6:S 

TY(10)=-6:STY(11)=0:STY(13)=8:STY(14)= 

-8: STY ( 15) =0 
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KJ 


1800 


KO 


1810 


JD 


1850 


EE 


1860 


HA 


1870 


ID 


1880 


AH 


1890 


PB 


1900 


AO 


1910 



00 


1930 


DI 


1940 


PH 


1950 


GL 


1960 


PG 


1970 


KH 


1980 



RETURN 

REM 

RESTORE 1860:FQR W=l TO 25:READ P:POK$ 

<W, W> =CHR* <P) : NEXT W:RETURN 

DATA 104,74, 170, 160, 0, 104, 133, 255 

DATA 104, 133, 254, 104, 240, 4, 200, 145 

DATA 254, 136, 104, 145, 254, 202, 208, 237, 9 

6 

REM GAME OVER 

REM *** G *** 

COLOR l:PLOT 73,73:DRAWT0 65,73:PL0T 6 

5,74:DRAWT0 65,S1:PL0T 66,74:DRAWT0 66 

,81 
HC 1920 PLOT 65,82:DRAWT0 74,82:DRAWT0 74,79sP 

LOT 73,82:DRAWT0 73,79:DRAWT0 70,79 

REM *** A *** 

PLOT 76,B2:DRAWT0 79,73:PL0T 80,73:DRA 

WTO 84,82:PL0T 77,78:DRAWT0 83,78 

REM *** M *** 

PLOT 86,82:DRAWT0 86,73:PL0T B7,82:DRA 

WTO 87,73:DRAWT0 91,77:DRAWT0 95,73:DR 

AWTO 95,B2:PL0T 96,73:DRAWT0 96,82 

REM *** E *** 

PLOT 98,82:DRAWT0 98,73:PL0T 99,82:DRA 

WTO 99,73:DRAWT0 106,73:PLOT 100,77:DR 

AWTO 104,77:PLOT 1 00 , 82 : DR AWTO 106,82 
AC 1990 REM *** *** 
AH 2000 PLOT 1 15, 82: DRAWTO 1 1 5 , 73 : DRA WTO 123,7 

3:DRAWT0 123, 82: DRAWTO 115,82 
KF2010 REM ** V ** 
KA 2020 PLOT 126, 73: DRAWTO 1 30 , 82 : DRAWTO 134,7 

3 
JG 2030 REM ** E ** 
JA 2040 PLOT 136, 82: DRAWTO 136,73:PL0T 137,82: 

DRAWTO 137, 73: DRAWTO 144,73 
FN 2050 PLOT 138, 77: DRAWTO 142,77:PL0T 138,82: 

DRAWTO 144,82 
KG 2060 REM ** R ** 
HH 2070 PLOT 147, 82: DRAWTO 147,73:PL0T 148,82: 

DRAWTO 148, 73: DRAWTO 1 55 , 73 : DRA WTO 155 

,78:PL0T 1 54 , 73 : DRA WTO 154,78 
JP 2080 DRAWTO 148,78:PL0T 1 50 , 78 : DRAWTO 154,8 

2:PL0T 151 , 78: DRAWTO 155,82 
IE 2090 IF PEEK (53279) < >6 THEN 2090 
AD2100 POKE 559, 0: RESTART=1 : BURY = 0: FALLEN = 0: S 

=0:YX=164:YY=174:WX=55:WY=60:W2X=73:W2 

Y=100:W3X=90:W3Y=165 
LK2110 POKE PLX,YX:POKE PLY,YY:POKE PLX + 1,WX: 

POKE PLY+1 , WY: POKE PL X +2 , W2X : POKE PLY+ 

2, W2Y 
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BP2120 POKE PLX+3, W3X:P0KE PLY + 3,W3Y 

FB2130 COLOR 4:POKE 87,7:F0R Y = 69 TO 85:PL0T 

53,Y:DRAWT0 159,Y:NEXT Y 
JN 2140 GOTO 760 
JP2150 END 

EP2160 REM INTRODUCTION 
862170 GRAPHICS 1 + 1 6 : SETCOLOR , 1 , 9 : SETCOLOR 

1 , 3, 2: SETCOLOR 2 , 1 2 , 6 : SETCOLOR 4,3,2 
OS 2180 BEGIN = PEEK (560) +PEEK (561 >* 256+4: SCROLL 

=PEEK(B8)+256*PEEK(89) 
LN2190 RESTORE 2330: X = 6 
BN 2200 X = X+1:IF X = 9 THEN X = X + 1 
BC2210 IF LEDR*="K" THEN 2240 

AH2220 READ LEDR* : POS I T I ON X,0:7 #6;LEDR* 
PF 2230 FOR Y=l TO 5:P0SITI0N X,Y-1:7 #6;" ":P 

OSITION X,Y:7 #6 ; LEDR* : NE XT YrGOSUB 23 

10:GOTO 2200 
KB2240 FOR X = l TO 8:P0SITI0N X,9:? #6;" B":NE 

XT X:GOSUB 2320 
LF 2250 FOR X=19 TO 10 STEP -l:POSITION X,9:7 

#6;"Y ":NEXT X:GOSUB 2320 
HF 2260 FOR Y = 22 TO 11 STEP -lsPOSITION 6,Y+1: 

7 #6;"<:5 SPACES>":POSITION 6,Y:7 #6;"S 

TEVE":NEXT Y 
BB 2270 GOSUB 2310 
W 2280 FOR Y=22 TO 11 STEP -l:POSITION 12,Y+1 

:7 #6;"C3 SPACES} ": POS I T I ON 12,Y:7 #6; 

"LOW":NEXT Y 
BD 2290 GOSUB 2310 
HH 2300 GOTO 2340 
DB2310 FOR 1 = 1 TO 5:S0UND , 1 25 , 1 4 , 6 : FOR D=l 

TO 5:NEXT D:NEXT I : SOUND , , , : RETUR 

N 
CL 2320 FOR 1 = 1 TO 5:S0UND , 1 00 , 1 4 , 6 : FOR D=l 

TO 5:NEXT D:NEXT I : SOUND , , , : RETUR 

N 
10 2330 DATA M,T,R,0,C,K 
FE 2340 FOR D=l TO 200:NEXT D 

BB 2350 REM -CDOWN> Scroll intra to le-ft {DOWN> 
IJ 2360 X = 0:FOR 1 = 1 TO 1 9 : ML = USR ( ADR ( POK* ) , BEG 

IN, SCROLL+I ) : X=X+1 
PE 2370 FOR Y = 5 TO IMPOSITION X,Y:7 #6;" " : NE 

XT Y:NEXT I 

POSITION 3,7:7 #6;"PLEASE WAIT" 

POSITION 3,9:7 #6; "30 SECONDS" 

FOR D=l TO 350:NEXT D 

RETURN 

END 
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JO 2390 


FH 2400 


KH 24 10 


JP 2420 
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- Climb 



David A. Miller 



For two players with joysticks, "Climb" is a different type of race 
game — who has faster reflexes? 

The object of this two-player game is simply to be the first to 
reach the flag at the top of the hill. This should be easy to 
accomplish, but as with most computer games, there is a 
catch. 

After the program has finished initializing, you'll see the 
playfield which contains two hills and two jumpers, one for 
each player. At regular intervals an arrow will appear in the 
middle of the screen near the top. This arrow points in the 
direction in which both players must push their joysticks. The 
first player to push the joystick will see his or her jumper leap 
into the air. The arrow will disappear, only to be quickly fol- 
lowed by another arrow indicating in which direction the joy- 
stick must be pushed to complete the jump. After a short 
delay, the middle arrow will again appear, and both players 
race to be first to push their joysticks in the proper direction. 
This continues until one of the jumpers reaches the top. 

Now, there's just one more thing I should mention (I told 
you there would be a catch). Just when you think you're mak- 
ing progress up the hill, you'll find yourself being knocked 
back down one jump, and ten points will be subtracted from 
your score. Why does this happen? Well, it seems that every 
time your opponent makes a successful jump, you get knocked 
backward. 

Climb 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

CC 9 REM *** POKE NEW CHSET INTO MEMORY AND TU 

RN ANTIC OFF *** 
JN 10 GOSUB 620:GRAPHICS 1B:P0KE 756 , CHSET /256 

:POKE 559,0:GOSUB 400 
PN 20 POKE 709, 196 

FE 22 REM *** ONE LINE OF GR MODE 1 
FF 30 DL = PEEK (560) +256*PEEK (561 i +4:P0KE DL+12, 

6:P0SITI0N 1,10:7 #6 ; "aSMl" : POS I T I ON 14 

,10:7 #6; "score" 
ML 40 POKE 559,34:REM *** TURN ANTIC BACK ON 
CP 42 REM *** PRINT SCORE AND ARROW 
OH 50 SPOS1 = 169:SPOS2=170:SCORE1=0: SCORE2==0 
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OP 60 SOUND 0, 0, 0, 0: SOUND 1 , , , : POS I T I ON 2 1 
Is? #6;"<:4 SPACES>":POSITION 1 5 , 1 1 : •? #6: 
"C4 SPACES>" 
AF 70 POSITION 2,11:? #6 ; SCORE 1 : POS I T I ON 15,11 

:? #6; SC0RE2: GOSUB 340 
BJ 90 FOR W=l TO 200:NEXT W:POKE SCR + 30 , R AND : P 

OKE 53279, 1 
MFB2 REM *** CHECK IF SOMEONE MATCHED 
BD 90 FOR W=l TO 90 : S 1 =ST I CK ( ) : S2 = ST I CK ( 1 ) : I F 

S1=ST OR S2=ST THEN 110 
CH 100 NEXT W 
JD 1 10 POKE SCR + 30, 

DI112 REM *** CHECK WHO MATCHED 
FO 120 IF S1=S2 THEN 70 
PA 130 IF S1=ST THEN TPOS 1 =SPOS 1 : SPOS 1 =SPOS 1 -2 

0:POKE SCR + SPOS1 , 199: POKE SCR + TPOS 1 , : G 

OTO 160 
PH 140 IF S2 = ST THEN TP0S2 = SP0S2 : SP0S2 = SP0S2-2 

0:POKE SCR+SP0S2, 198: POKE SCR+TP0S2 , : G 

OTO 250 
DG 150 GOTO 70 

00 152 REM *** PLAYER1 MATCHED 
EL 160 SOUND 0, 100, 10, 8: GOSUB 340:POKE SCR + 45, 

RAND+128 
FI 170 FOR W=l TO 75: S1=STICK (0) : IF S1=ST THEN 

190:NEXT W:POKE SCR+45, 
CP 180 NEXT W 

NE 190 POKE SCR + 45, 0: IF SIOST THEN 240 
FE 200 TPOSl=SPOSl : SPOS 1 =SPOS 1 - 1 : POKE SCR + SPOS 

1,196:P0KE SCR+TPOS 1 , : I F SP0S1=1 THEN 

WAVE=SPOSl : GOTO 500 
JP210 SCOREl=SCOREl+20: IF SPOS2>=170 THEN 60 
LK 220 TP0S2 = SP0S2: SP0S2 = SP0S2+ 1 9 
KF 230 POKE SCR + SP0S2, 197: POKE SCR + TP0S2 , : SCO 

RE2=SCORE2-10: GOTO 60 
K6 240 POKE SCR + SPOS1 , 0: POKE SCR + TPOS 1 , 1 96 : SPO 

S1=TP0S1 : GOTO 60 
OP 242 REM *** PLAYER 2 MATCHED 
BL 250 SOUND , 200 , 1 , 8 : GOSUB 340:POKE SCR + 54, 

RAND+64 
FL 260 FOR W=l TO 75 : S2 = ST I CK ( 1 ) : I F S2 = ST THEN 

280:NEXT W:POKE SCR+54, 
CP 270 NEXT W 

NF 280 POKE SCR + 54, 0: IF S2< >ST THEN 330 
KC 290 TP0S2 = SP0S2: SP0S2 = SP0S2+ 1 : POKE SCR + SPOS 

2,197:P0KE SCR+TP0S2 , : I F SP0S2=18 THEN 
WAVE=SP0S2: GOTO 560 
KI 300 SCORE2 = SCORE2 + 20: IF SP0S1>=169 THEN 60 
KP310 TPOSl=SPOSl : SPOS 1 =SPOS 1 +2 1 
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KA 320 



KL 330 



0: SCO 




HA 6 40 
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LJ 642 REM *** REDEFINE CHARACTER SET 

CN 650 CHSET= (PEEK ( 106) -S) *256: IF PEEK(CHSET+1 

*8)=112 THEN RETURN 

JN 660 FDR 1=0 TO 512:P0KE CHSET+ I , PEEK ( 57344+ 

I):NEXT I:RESTORE 700 

KO 670 READ A: IF A = -l THEN RETURN 

AC 680 FOR J = TD 7:READ B:PDKE CHSET + A *S + 3 , B : 

NEXT J 

HF 690 GOTO 670 

SF 692 REM *** DATA FOR NEW CHSET 

Ift 700 DATA 1,112,120,124,126,127,96,96,96 

CL710 DATA 3,255,195,129,129,129,129,195,255 

AN 720 DATA 4,56,108,60,24,120,24,40,108 

HM 730 DATA 5,28,54,60,24,30,24,20,54 

IN 740 DATA 6,28,54,60,26,28,56,40,80 

LP 750 DATA 7,56,108,60,88,56,28,20,10 

01760 DATA 8,24,24,24,24,255,126,60,24 

OK 770 DATA 9,24,60,126,255,24,24,24,24 

LC 780 DATA 10,8,12,14,255,255,14,12,8 

IC 790 DATA 11,16,48,112,255,255,112,48,16 

HB791 DATA 12,60,102,60,24,126,153,36,102 

HE 792 DATA 13,60,102,61,25,126,152,36,102 

BA 800 DATA -1 



~ 
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- Front Attack 



Robert J. Neep 



"Front Attack" features vivid scrolling graphics and fast action. 
You need a joystick, at least 16K RAM, and quick reflexes to play 
this one. 

As you're exploring a newly discovered planet, alien ships be- 
gin coming at you. You're not sure if they're friend or foe. But 
to be safe, you should try to avoid them. Soon, though, you 
discover that friendly is not a word in their vocabulary — it's 
you or them. 

Attack 

Once the title screen appears, press the START key to begin 
the attack. As the aliens attack, you have two options: avoid 
them by moving your joystick up and down or fire at them by 
pressing the joystick button. You'll soon discover that your ship 
is stronger than you had expected. It can withstand three direct 
hits before the game ends and your score is displayed. The 
score is based on the number of aliens you manage to down. 

Front Attack 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FO 7 POKE 623, 1 

GH 10 GOSUB 1000:LIFE = 3 

DP 20 DIM P* ( 1024) , D* (50) , SHIP* (30) , LAZER* (30) 

, ENE* (30) , FM* (30) 
FJ 30 VT = PEEK ( 134) +PEEK ( 135) *256 
DP 40 AT = PEEK ( 140) +PEEK ( 141 ) *256 
NC 50 POKE 559, 62: RX1 = 1 : RX2=1 
BH 60 PM = PEEK ( 106) -32: POKE 54279, PM 
JI 70 POKE 53277, 3:P0KE 5325S,1:P0KE 53259,1 
J! 80 OFF=PM*256+1024-AT 
BK 90 HI = INT (OFF/256) 

CO 100 LO=OFF-HI *256: POKE VT + 2 , LO : POKE VT+3,HI 
PG110 POKE 704,16B:POKE 705,248 
OH 120 POKE 706,200:POKE 707,250 
BF 130 D*="<45 ,}":FOR 1=2 TO 1024 STEP 25:P*( 

I)=D*:NEXT I : POKE 53248,80 
CN 135 POKE 53257, 3 
JN 140 X = B0: Y = 90: X 1=3: Yl=347 
HA 150 X2 = 200:Y2 = 600:X3 = 200:Y3 = 855 
01 170 P$(Y)=D$:P$(Y1)=D$:P$(Y2)=D*:P$(Y3)=D* 
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180 



{5 , >(U3<:B>rir ' 'EK = }?{: = >n* ' 'GKBJGH 



BL 


190 


NP 


200 


OA 


210 


LD 310 


OF 34 


II 


350 


IK 


360 


IA 


370 



EB 380 



NC 39 



400 
41 
420 
490 
500 



510 
520 
550 



560 
570 
600 
610 
620 
630 
800 



XI : IF 



GDSUB 



810 
820 
830 

1000 
1010 
1020 
1030 
1040 
1050 
1060 



SHIP*=' 

C 5 , > " 

LAZER*=" <5 ,}Q<:i3 , JQC7 ,}" 

ENE$="C5 , } {X} CBACK SXCBACK S><INSERTJ 

f-f-f {INSERT} {BACK SX-CBACK S>{X}{5 , > " 

P$(Y2)=ENE*:P$(Y3)=ENE* 

S = STICK (0) : SCR = SCR+1 : POKE LL,SCR:IF SCR 

>40 THEN SCR=1 

IF S=13 THEN Y=Y+5:IF Y>130 THEN Y=130 

IF S=14 THEN Y=Y-5: IF Y<25 THEN Y=20 

P* (Y) = SHIP<6: POKE 53250 , X 2 : POKE 53251, X3 

IF ACT=0 THEN IF STRIG(0)=0 THEN Xl=80: 

ACT=1:Y1=Y+256:P*(Y1)=LAZER*: SOUND 0,10 

,8, 15 

IF ACT=1 THEN X 1 = X 1 + 1 5 : POKE 53249. 

X1M90 THEN BOSUB 4000 
X2=X2-RX 1 : X3=X3-RX2: IF X2<40 THEN 

500 
IF X3<0 THEN GDSUB 550 
IF PEEK (53260) >2 THEN 2000 
IF PEEK <53261 ) >1 THEN 600 
BOTO 310 
X2=255: P*(Y2)=D*:Y2=RND(0) 

706,RND(0)*255:SPl=SPl+0. 
3 + SP1 : P* (Y2) = ENE$ 
IF SP1>25 THEN SP1=4 
RETURN 
X3=255:P*(Y3)=D*:Y3=RND(0)« 100+800: POKE 

707,RND(0)*254:SP2=SP2+0.5:RX2=RND(0>* 
3 + SP2: P$ ( Y3) =ENE$ 
IF SP2>36 THEN BP2=5 
RETURN 

SCORE=SCORE+250 
IF PEEK (53262) >1 THEN 
IF PEEK (53263) >1 THEN 
GOTO 310 

GRAPHICS 2+16:P0KE 559,62:P0KE 53248,0: 
POKE 53249, 0:POKE 53250, 0:POKE 53251,0: 
POKE 53278,0 

POSITION 0,3:7 tt6; " i?75 mit--J*.3ia=J»l- ■ ■■■ { " 
POSITION 7,5:? #6;SC0RE 

SOUND 0,0,0,0:FOR W=l TO 1000:NEXT W:RU 
N 

ERAPHICS 2+16:P0KE 559,62:7 #6 



#100+550: POKE 
i: RX1=RND (0) * 



3000 
3100 



#6 
#6 
#6 
#6 
#6 
#6 



" *E3*E*n*S2*Q*E3*E*S3*Ea* " 
"E3 compute! books E" 

"* * * HU^aMHia* * c 3 spaces: * 

"E2{17 SPACES353" 

"* >Frf7TTTT AtB3Ck< *" 

"Ea-ci7 bpaces:e3" 
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GO 10 70 



HP 
CC 
OF 

HB 



1090 
1110 
1 120 
1 130 



EA 1 140 



JF 1 150 

ED 1 160 

IC 1 165 

M 1 170 

HI 1180 

EJ 1 190 

fill 1200 

BM 12 10 

LO 1220 

EC 1230 



1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 



AC 1330 



AI 

IM 
BD 
BF 
JD 
BC 
JK 
AD 
BD 
FP 



1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 



? #6 

C3 B 

? #6 

POKE 

AA1 = 

FOR 

, AA1 

RX T 

FDR 

: SOU 

OTO 

SOUN 

IF P 

SOUN 

NEXT 

GOTO 

GRAP 

1 ) : L 

POKE 

FOR 

PLOT 

POSI 

£4 S 

POSI 

C3 S 

POSI 

POSI 

POSI 

POSI 

POSI 

POSI 

POSI 

POSI 

POSI 

£3 S 

POSI 

<4 S 

POSI 

POSI 

POSI 

POSI 

POSI 

POSI 

REST 

FOR 

READ 

DRAW 

N 



; " * i 
PACE 

5 * mm 

70S 
0: RX 
1=2 
+ 1, 1 
HEN 
1 = 15 
ND 1 
1 130 
D 1, 
EEK ( 
D 0, 

M 

1 16 
HICS 
L = DL 

708 
1=0 

RND 
TION 
PACE 
TION 
PACE 
TION 
TION 
TION 
TION 
TION 
TION 
TION 
TION 
TION 
PACE 
TION 
PACE 
TION 
TION 
TION 
TION 
TION 
TION 
ORE 
1=0 

MT: 
TO I 



3 SPACES> idjM5k: START 
SJ*" 

*H*3*£2*53*52*Q*E3*E2* " 
, 122: POKE 709, 236 
RX = 6 

TO 15:S0UND 0,AA1,10, 
0,1: NEXT I:AA1=AA1+1: 
1 150 

TO 2 STEP -l:SOUND 
, AA1+1 , 10, I : NEXT I : AA 



I: SOUND 1 
IF AA1>RX 

, AA1 , 10, I 
1=AA1 + 1 : G 



0,0,0 

53279)=6 THEN 1180 

RND (0) *255, 10, 2: FOR W=l TO 10: 





7+16: 
+4: POK 
, 1 36 : C 
TO 50: 
(0) *15 

10, 10 
SJ " 

10, 
SJ " 

10, 
10, 

10, 14 

10, 15 

10, 

10, 

10, 

10, 

10 
SJ " 

10, 21 
S> " 

50, 50 

50, 51 

50 

50 

50 

50. 
1500: C 
TO 159 
PLOT I 
, 95: NE 



DL=PEEK(560)+256*PEEK<56 

E 53256,0 

OLOR 1 

SOUND 0, RND (0) *255, 10, 10 

9, RND (0) *95: NEXT I 

:? #6;"<:4 SPACESJAAAAA 



lit? #6;"{:3 SPACES>AAAAAAA 



12; 
13: 



16 

17 

18 

19i 

20: 



#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 



AAAAAA 
" AAABAAB 
"AAABAABB 
"AABAABBB 
"AABAAABB 
"AAAAABBB 
" AAAABBB 

AAABBA 
"<:3 SPACE 



AAA 

BAAA " 

BBAAA" 

BBBAA" 

BBBAA" 

BBAAA" 

BAAA " 

AAA 

SJ AABAAAA 



? #6: "{4 SPACESJAAAAA 



52 
53 
54 
55 



7 
7 
7 
-? 



#6 
#6 
#6 
#6 
#6 
#6 



BB 
" BAAB " 
"BBBABB" 
"BBABBB" 
" BBAB " 

BB 



OLOR 2 

: SOUND 0, 1,8, 15 

,MT 

XT I: SOUND , , , : RETUR 
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EK 1500 


DATA 90, 89,87, 86,85, 84,83, 82,82,83,84, 
85, 86, 86, 85, 84,83,82,81,80, 79, 77,75, 73 
,72, 71, 70, 70, 69, 69, 69, 68, 68 


— 


LK 1510 


DATA 68,68,69,69,69 




NE 1520 


DATA 70, 70, 71, 72, 71, 70, 69, 68, 67, 66, 65, 
64, 63, 62, 61, 60, 61, 62, 63, 63, 62, 61, 62, 63 
,64, 65, 67, 69, 72, 74, 76 




CI 1530 


DATA 75, 74, 73, 70, 68, 65, 63, 60, 58, 57, 58, 
60, 61, 63, 64, 65, 67, 65, 64, 62, 60, 60, 60 




All 1540 


DATA 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 70, 
70, 71, 74, 76, 78, 79, 80, 80, 80, 81 




BE 1550 


DATA 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 
88, 89, 90 




GI 1560 


DATA 90, 90, 91, 92, 93, 94, 94, 93, 93, 92, 92, 
91, 91, 90, 90, 89, 88, 89, 88, 87, 86, 85, 85 




E! 1570 


DATA 84, 83, 84, 85, 86, 87, 88, 89, 90, 90, 90 




FE 2000 


POKE 712,14:FQR W=l TO 10:NEXT W:POKE 
712,0:POKE 53256 , 1 : D*= " i 24 , > " : P* ( Y ) =D 
*: Q9=3 




FG 2001 


POKE 53249, 1 




FN 2005 


FB=FB+1:IF FB>9 THEN FB=1 




JN 2010 


IF FB<5 THEN FM*="C6 , } CQ» 3 COJ THJ <6 , > 

" : P* ( Y) = FM$ 




LK 20 15 


Y=Y+Q9:IF Y>215 THEN Q9=-3 




EN 2020 


IF FB>4 THEN FM$="<6 , }R(J}Q ( {H]-/.{6 ,J 
" : P* ( Y) = FM* 




BH 2030 


ZZ=ZZ+l:POKE LL,ZZ:IF ZZ>40 THEN ZZ=1 




CN 2040 


X=X+2:PDKE 53248 , X : BOUND 0,X,8,15:IF X 
>200 THEN X2=200: X3=200: X=80: POKE 5325 
0,X2:PQKE 5325 1 , X3 : GOTO 2060 




HH 2050 


GDTO 2005 




NE 2060 


P* ( Y) =D$: Y=90 




EF 2065 


SOUND 0, 0, 0, 0: P* ( Y) =SHIP*: POKE 53248, X 
:POKE 53256, 0:POKE 53278 , 1 : L I FE=L I FE- 1 
: IF L IFE< 1 THEN 800 




DJ 2070 


GOSUB 500:GOSUB 550:GOTO 310 




JC 3000 


XXX = X2 




NB 3020 


FOR I=XXX TD 210 STEP 10:SOUND 0,1,8,1 






5:P0KE 706,I:POKE 53250, IsNEXT I : GOSUB 


i 




4000:POKE 53278,0 




OC 3030 


GOSUB 500:GOTO 310 




ED 3100 


XXX 1=X3: GOSUB 4000 


—— 


BF 3 1 1 


FOR I=XXX1 TO 210 STEP 10:SOUND 0,1-20 
,8,15:P0KE 707,I:POKE 53251, I:NEXT I:P 
OKE 53278,0 




00 3 12 


SOUND 0, 0, 0, 0: GOSUB 550:GOTO 310 


"1 


KN 4000 


X1=0: ACT=0: SOUND 0,0,0,0:POKE 53249, XI 





: P* ( Yl ) = D$: RETURN 
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Electronic Football 



Buren Earl Wells, Jr. 



"Electronic Football" is a game for those who want to do some- 
thing a little closer to home than shooting aliens or running from 
' 'ins. Joystick required. 



"Electronic Football" is for two players using one joystick. 
Each player takes a turn controlling the offense, and the com- 
puter controls the defense. 

At the beginning of each game, the players have the op- 
tion of choosing one of five possible skill levels. Each game is 
divided into two nine-minute, 59-second halves in which the 
first player starts the first half and the second player starts the 
second half. The clock stops after each play. Scoring is accom- 
plished by either a field goal (three points) or a touchdown 
(seven points). The score is displayed when a player scores 
and at the end of the game. It can also be displayed before 
any play begins by pressing the trigger button on the joystick. 

The offense consists of one man that must elude 11 
would-be tacklers in his quest for a score. You can move this 
man in the upward, downward, or forward direction by using 
a joystick which is connected in the first joystick port. Four for- 
ward steps by the offensive man are equal to a yard. You can't 
move backward, however, so once a forward step is made, 
there is no turning back. As in real football the offensive 
player has four downs in which to move ten yards, or the ball 
turns over and it's the other player's turn to control the 
offense. 

The Huddle 

Before every play the current down, field position, yardage, 
time remaining, and the player who is controlling the offense 
are displayed on the border of the playing field. It's at this 
time that the offensive player must decide what to do. If the 
player wants to kick, he or she simply presses the START but- 
ton. If the offensive man is out of range of a field goal (more 
than 50 yards away), or if the field goal try is unsuccessful, 
the kick is a punt and the ball turns over. If the offensive 
player desires to run instead, the play is started by moving the 
joystick. 
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Field Position 

The color of the sideline markers indicates whose territory the 
offensive man is in at the beginning of the play. If the sideline 
is the same color as the offensive man, then the man is inside 
his own 50-yard line. Otherwise, the offensive man is inside 
the opponent's 50 and may be nearing a score. 

Electronic Football 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FL 10 GOTO 1000 

CO 20 IF STICK(0)<>15 THEN ST = ST I CK ( ) : BOSUB 2 

00 
FK 30 IF L>LP THEN GDSUB 300 
BK 40 L=L+l:GOTO 20 
00 200 H = 0: V = H: TR = H: Z = H: IF ST=13 AND PLV<9 THE 

N LOCATE PLH, PLV+1 , Z: V=l 
JJ210 IF ST=14 AND PLV>3 THEN LOCATE PLH,PLV- 

1 , Z: V=-l 
LF 220 IF ST = 7 THEN LOCATE PLH+ 1 -20* ( PLH= 1 9 ) , P 

LV,Z:H=lsIF PLH>18 THEN H=- 1 9 : F I VE=F I VE 

+<Z<>2 AND Z<>130) 
01230 IF Z = 130-12B* (PL = 2) THEN M ( I , 1 ) =PLH : M ( I 

,2)=PLV:G0T0 600 
BL 240 IF Z THEN POKE 53279 , : COLOR 32:PL0T PL 

H,PLV:PLH=PLH+H:PLV=PLV+V: COLOR 1+128* < 

PL=2> : PLOT PLH, PLV 
LD 250 IF PI + INT ( F I VE *5 + PLH/4 ) +YDS>99 THEN 800 
HI 260 RETURN 
IJ 300 I = INT (RND (0) * ( 1 1-2* (PS>65 AND PS<89)>>* 

(PLH<6)+(10-INT(RND(0)*2)-INT(RND(0)*3) 

* (PLH<9) ) * (PLH>5) 
OF310 L = 0/S-H = L: V = L: IF RND(0)>0.4 AND M(I,2)OP 

LV AND IOCR THEN 350 

IF PLH<M(I,1) THEN M ( I , 1 ) =M ( I , 1 ) - 1 : H= 1 

IF PLH>M(I,1) THEN M ( I , 1 ) =M ( I , 1) +1 : H = -l 

GOTO 370 

IF PLV<M(I,2> THEN M < I , 2 ) =M ( I , 2 ) - 1 : V = 1 

IF PLV>M(I,2) THEN M < I , 2 ) =M ( I , 2 ) + 1 : V=- 1 

LOCATE M ( I , 1 ) , M ( I , 2) , Z: IF Z = 1 + 1 28 * ( PL = 2 

) THEN 600 
KG 380 IF Z=130-128* (PL = 2) THEN M ( I , 1 ) =M ( I , 1 > + 

H:M(I,2)=M(I,2)+V:RETURN 
IF 390 COLOR 32:PL0T M ( I , 1 ) +H , M( I , 2 ) +V : COLOR 1 

30-128*(PL=2) :PLOT MCI, 1) ,M(I,2) : RETURN 
EA400 GRAPHICS 2+16:P0KE 756 , CHSET /256 : T 1 =PEE 

K<20) :T2=PEEK(19) :TIME=Tl/60+T2*256/60: 

SETCOLOR 1,9,8 
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HK 


320 


FI 


330 


BK 


340 


OH 


350 


BK 


360 


CP 


370 
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NG410 Q=128* ( (PS<51 ) * (PL=1 ) OR ( PS >50 ) * ( PL = 2 ) 

):FOR Y = 2 TO 10 STEP S:FOR X=0 TO 19 ST 

EP 4 
NF 420 COLOR 131-Q:PL0T X,Y:COLOR 133-B:PL0T X 

+l,Y:PLOT X+2,Y:C0L0R 132-Q:PL0T X+3.Y: 

NEXT X:NEXT Y 
AG 430 IF TIME>599 THEN 850 

BK 440 POSITION 0,0:? #6; "DOWN POSITION YARDS" 
AI 450 TM=INT (TIME/60) :TS=(TIME/60-TM>*60 
CJ 460 POSITION 2,1:? #6 ; DOWN : POS I T I ON 8,1:? # 

6; POS:POSITION 16,1:? #6;YARDS 
PA470 POSITION 0,11:? #6;"TIME " ; 9-TM ; " . " ; 59- 

INT(TS):IF INT(TS>>49 THEN POSITION 7,1 

1 : ? #6; "0" ; 59-INT(TS) 
NB 480 POSITION 11,11:? #6;"PLAYER ";PL:PLH = 0: 

PLV=6:C0L0R 1 + 1 28 * ( PL = 2 ) : PLOT PLH,PLV 
FP 490 T = 2:F0R 1=0 TO 6 : M ( I , 1 ) =3 : M ( I , 2 ) = 1 +T : T = 

T+l:COLOR 1 30- 1 28* ( PL=2 ) : PLOT 3,M<I,2): 

NEXT I 
KN 500 T = 3:F0R 1=7 TO 8 : M < I , 1 ) =6- ( PS >89 ) : M ( I , 2 

) =1+T: T=T+4: PLOT M ( I , 1 ) , M ( I , 2 ) : NEXT I 
DG510 T = 4:F0R 1=9 TO 1 : M ( I , 1 ) =8-2 * ( PS >89 ) : M < 

I,2)=1+T:T=T+2:PL0T M ( I , 1) , M C I , 2) :NEXT 

I 
PA 520 IF STRIG(0)=0 THEN GOSUB 900:GOTO 440 
CB 530 IF PEEK (53279) <7 THEN POKE 19,T2:POKE 2 

0,T1:GOTO 950 
JA540 IF STICK(0)=15 THEN 520 
IE 550 POKE 77, 0: LP= ( INT(RND (0) *3) ) * (PS<65> +2* 

(PS<40) +2* (PS<80) +SK: POKE 19,T2:P0KE 20 

, Tl : CR= (RND (0) <0. 5) *6: GOTO 20 
CP 600 SOUND 0, 72, 10, 15: FOR A=l TO 100:NEXT A: 

SOUND 0,0,0,0:FOR A=l TO 4:C0L0R 32:PL0 

T M ( I , 1 ) +H, M ( I , 2) +V 
PM610 FOR AA = TO 60:NEXT AA:COLOR 130-128*(P 

L=2):PL0T M ( I , 1 ) +H , M ( I , 2 ) +V : FOR AA=0 TO 
60:NEXT AA:NEXT A 
IP 620 YDS=INT(FIVE*5 + PLH/4)+YDS:YARDS=10-YDS 
AH 630 PS = PI+YDS: POS = PS: IF PS>50 THEN POS=100- 

PS 
BK640 IF YDS>9 THEN YARDS= 1 : DO WN = : P I =P I + YDS 

: YDS=0 
KO 650 FI VE=0: DOWN=DOWN+l : IF D0WN = 5 THEN 700 
m 660 IF YARDS>POS AND PS>90 THEN YARDS=POS 
Gr670 GOTO 400 
JM 700 FOR 1 = 1 TO 10:SOUND , 72 , 1 , 1 5 : FOR A=l 

TO 20:NEXT A:SOUND 0,0,0,0:FOR B= 1 TO 5 

:NEXT B:NEXT I 
HI 710 IF PL=1 THEN PL = 2:G0T0 730 
Kfl 720 PL=1 
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BI 740 


CB 800 


FO S10 


IL B50 


HC 860 


HE 870 



DK 7 30 PS=100-PS: PI=PS:DOWN=l :YARDS=10:YDS=0:P 

QS=PS: IF PS>50 THEN POS=100-PS 

GOTO 400 — 

FOR A=l TO 4:FOR 1=10 TO 70:SOUND 0,1,1 

0,15:NEXT I : SOUND 0,0,0,0:NEXT A 

SCR(PL)=SCR(PL)+7:PS=80:POS=20:FIVE=0:G 

OSUB 900:BOTO 710 ■■* 

IF HH THEN 880 

POSITION 6,6:? #6; "HALF TIME":GOSUB 900 

:POSITION 0,6:? #6;"player 2 is up NOW" 

:FOR 1=1 TO 600:NEXT I 

HH=1 : PL=1 : PB=B0: POKE 19,0:POKE 20,0:BOT 

710 
MJ 880 HH = 2: POSITION 0,5:? #6;"*** END OF GAME 

***":? #6:? #6; "PRESS START TO PLAY" 
JK 890 GOSUB 900: IF PEEK ( 53279 )< 7 THEN RUN 
I ft 895 SOTO 890 
HF 900 POSITION 0,0:? #6;"PLAYER 1{4 SPACESJPL 

AYER 2":P0SITI0N 0,1:? #6;"£19 SPACES>" 
N6910 POSITION 3,1:? #6 ; SCR ( 1 ) : POS I T I ON 14,1: 

i #6;SCR(2):IF HH=2 THEN RETURN 
DE 920 FOR 1 = 1 TO 300:NEXT I 

AI 930 POSITION 0,0:? #6;"<:40 SPACES> ": RETURN 
LJ 950 IF RND (0) < (PS-40) /44 THEN 970 
NE 960 PS = PS+INT (RND (0) *( 100-PS) ): GOTO 700 
CH 970 FOR A=l TO 2:F0R 1 = 10 TO 70:SOUND 0,1,1 

0,15:NEXT IsNEXT A:SOUND 0,0,0,0 
6C980 SCR(PL)=SCR(PL)+3:PS = 80:POS = 20:FIVE = 0:G 

OSUB 900:GOTO 710 
JD 1000 DIM M ( 1 1 , 2) , T* (3) , SCR (2) : PS = 20: PI=PS: P 
0S=PS:PL=1:D0WN=PL: YARDS=10: SCR ( 1 ) =A: S 
CR(2)=A:0PEN #1,4,0,"K:" 
BH 1010 GRAPHICS 2+16:? #6 ;" ELECTRON I C IJ i I iH;T:H 
OH" : POSITION 2,6:? #6;"levels ai skill 

II 

FO 1020 POSITION 0,8:? #6;"easy{12 SP ACESJ h ar d " 
:? #6;"MC3 HJ: H4-1 }R{3 a^EH^JB 

£3 a^TH^>E<3 E cznaaa >@" 

M. 1030 GET #l,SK:IF SK<49 OR SK>53 THEN 1030 
!Kl040 CHSET= (PEEK ( 106) -8) *256: IF PEEK(CHSET + 

I2)=l6 THEN POKE 19,0:POKE 20,0:SK=54- 

SK:CLOSE ttl:GOTO 400 
EO 1050 POSITION 4,3:? #6;"please wait" 
IC 1060 FOR I=0 TO 5l2:P0KE CHSET+ I , PEEK ( 57344 

+I):POKE 708, PEEK (53770) : NEXT I 

LO 1070 READ A: IF A = -l THEN 1040 

BI 1080 FOR J = TO 7:READ B:POKE CHSET + A*8 + J , B 

:POKE 708, PEEK (53770) : NEXT J:GOTO 1070 
GF1100 DATA 1,0,60,52,60,16,30,16,40 
KC1110 DATA 2,0,60,36,60,24,126,24,36 
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HF1120 DATA 3,0,128,128,255,255,128,128,0 
NP1130 DATA 4,0,1,1,255,255,1,1,0 
FH1140 DATA 5,0,0,0,255,255,0,0,0,-1 
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The Heavenly Gates 



Robert F. Host 



Can you keep the demons out and still maintain your composure? 
"Heavenly Gates" is also a good example of how to mix BASIC 
with machine language. Requires a joystick. 

The demons have broken free of their prison and are storming 
the gates of heaven. You are the lone defending angel and 
must keep the attacking demons from penetrating the gates. 
Your mere touch sends a demon back in the direction it came 
from, but once a demon hits a border, it can rebound in any 
direction. 

You can repel only one demon at a time, so be sure to 
break contact with one demon before trying to fight off an- 
other. Control the position of your angel with a joystick in 
port 1. You get points for time the heavenly gates are free of 
demons, but you lose points at a much faster rate when there 
is at least one demon inside the gates. A 5-point bonus is 
awarded every time your angel repels a demon. To advance to 
the next round, you must at least maintain your score from the 
previous round. Each round has a time limit of about two 
minutes. If you make it through all nine rounds, you receive a 
5000-point bonus and a salute from the heavenly trumpets. 

This game is not as easy as it looks. Your angel can't keep 
up with the three demons if they're attacking from opposite 
directions. It's sometimes best to let a demon pass through the 
gates in order to get all the demons on the same side. In the 
faster rounds, trying to repel a demon from the side may be 
ineffective. Try to meet the demons head-on if possible. Learn 
where the boundaries for point loss are — don't waste time go- 
ing after demons that aren't costing you points. Remember, 
the key to scoring points is keeping demons out of the gate 
area. If there are no demons attacking, keep your angel near 
the gates — don't chase the demons. 

After typing in the program, be sure to save it before you 
run it. 

Memory Allocation 

The main problem with combining BASIC and machine lan- 
guage is memory allocation. To write the main loop of the 
program, I had to find an area of memory which BASIC 
wouldn't touch. Since I used page 6 for a vertical blank, and 
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since I anticipated that the routine would not be relocatable 
and thus could not be coded as a string, I had to look 
elsewhere. 

Fortunately, the Atari has a couple of pointers which 
helped. Memory locations 144 and 145 point to the highest 
byte of memory used by the BASIC program in memory. By 
the direct statement PRINT PEEK(144) + 256*PEEK(145), I was 
able to determine the approximate top of memory used by the 
BASIC program after the bulk of the BASIC was written. I 
started the machine language routine above this, leaving about 
4K between the top of the BASIC and the beginning of the 
machine language routine. 

Location 106 was the other Atari pointer used in the 
development of this program. It points to the page number of 
the top of free RAM. However, space for screen memory and 
player/missile graphics data was needed below the top of free 
RAM. For graphics 7 screen memory, 32 pages of RAM were 
reserved, and 8 pages were reserved for double-line-resolution 
P/M graphics, yielding 40 pages of reserved memory (10K) 
below the value in location 106. For a 48K system, location 
106 = 160, so the highest memory location available for the 
machine code was (160 — 40)*256, or location 30720. However, 
since the bottom four pages of P/M memory are not used, I 
used the bottom 27 bytes (30720-30746) for storage of various 
machine language variables. 

Another problem with mixing BASIC and machine lan- 
guage is communication between the two. Such variables as 
the score, the round number, and the speed of the players 
must be updated and transferred as the game progresses. You 
can accomplish this by using additional parameters in the USR 
function, but this involves complex stack manipulations. An 
easier way is to POKE the variable value from BASIC into a 
reserved memory location where it can be picked up by the 
machine language routine. The PEEK function can be used by 
BASIC to retrieve a variable updated by the machine language 
routine and stored in a known location. Examples of these 
techniques are found in lines 305, 307, 7805, and 16020. 

Credit 

Lines 8000-9600 were derived from a player/missile move- 
ment routine by Chris Nicotra, reprinted courtesy of ANTIC 
Publishing, Inc. (June 1983). 
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Program Description 

Lines Description 

7-10 Initialize constants and subroutine line numbers 

13-18 Initialize demon directions 

20-30 BASIC time-delay routine 

33-107 Title screen routine 

110-226 Initialize player/missile graphics 

227-276 Draw playfield 

295-307 Enable DLI and screen; initialize timers and round 

parameters 

310-320 Execute main loop (machine language) 

7800-7830 End of round handler 

7900-7950 Game loss handler 

8000-9600 VBLANK data and P/M setup 

10000 Data for heavenly gates 

12000-12090 Install DLI 

14000-15070 Play tunes 

16000-16030 Go to next round 

17000-18060 Win the game routine 

20000-20999 Data for main loop machine language program 



Heavenly Gates 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

HK7 

DJ 8 
IA9 
PE 10 



AC 
HP 
JI 

IC 

ID 



12 
13 
14 

15 
16 



RNDO VR=30 745 : TUNE= 14000 : EN TUNE =15000 : WIN= 
17000: WINSOUND= 18000 

POKE 82,0:POKE 83,39:P0KE RNDOVR,0 
SCORE=0: ROUND=50: R=l 

RANDOM=53770: WAIT=20:PABE6=8000:PMINIT=9 

000: XDIRECTI0N=13: YD IRECT ION= 15: NXTROUND 

=16000:DLI=12000 

GOTO 33 

REM MSaSSMEMSBSnSSMXSL 

DIRX-INT (PEEK (RANDOM) *3/256)-l:IF DIRX<0 
THEN DIRX=255:RETURN 

REM \=JZl=JZVmrm*4zl***<iTT 

DIRY=INT (PEEK (RANDOM) *3/256>-l: IF DIRY<0 



THEN DIRY=255 
IF DIRX=0 AND DIRY=0 THEN BOTO 16 
RETURN 

REM SS3S@BS@JEES 
FOR DELAY=1 TO JIFFIES 
TICK«=PEEK(20) 
IF TICK=PEEK(20> THEN 26 
NEXT DELAY 



OC 17 
EJ 18 
AE20 
ML 22 
KG 24 
NO 26 
BI 28 
ED 30 RETURN 



~ 
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JC 33 
PH 54 



HB 58 



AI 62 



LP 77 



rem k*+im=mxMiik*4:\= 

GRAPHICS lBsPDSITION 0,0:? #6;"********* 
***»*******":POSITION 0,10:? #6;"******* 



FDR 
ION 



1 = 1 TO 
19, I:? 



9:P0SITI0N 0,1:? #6 : " * " : POS I T 



#6: 



I: 1=0 

[TEaGENlE" 



POSITIO 



BL 
LB 

F6 
CL 

CH 
FJ 

se 

LC 
LO 
F6 
SC 
6E 
AD 
AL 
LE 
HB 
FI 
6C 
6K 
DA 
6L 
LD 
HK 



SE 


100 


BH 


101 


OH 


102 


CK 


104 


NK 


106 


EN 107 


DC 


108 


10 110 



BH 111 



112 
113 

119 
130 
140 
150 
160 
179 
1B0 
181 
182 
183 
184 
185 
189 
190 
191 
192 
193 
194 
195 
196 
197 



WAIT:POSITION 4,7:? # 



ragBBE 



*":NEXT 
POSITION 4,2:? #6;"Th[= 
N 7,4:? #6; "FAtL^" 
JIFFIES=60*2:GOSUB 

6; "qs nnnMn>3i" 

60SUB PAGE6 

SETCOLOR 3, 1, 12 

POSITION 4,8:? #6; 

POKE 53279,0 

IF PEEK<53279)=6 THEN 110 

TEMP-PEEK (708) : POKE 708, PEEK (709) : POKE 

709,PEEK(710) :POKE 71 0, PEEK ( 71 1 ) : POKE 7 

11 ,TEMP 

JIFFIES=30: GOSUB WAIT:GOTO 106 

GRAPHICS 7:P0KE 559,0:GOSUB DLI:SETCOLO 

R 0, 15, 10:SETCOLOR 4 , 8, 1 2: SETCOLOR 1,12 

, 10ISETCOLOR 2,1,4:P0KE 1562,0:POKE RND 

OVR.0 

RESTORE 20000: POKE 752,1 



SPACES>TIME REMAINING: 



1-0: 
" c ? 



? "SCORE: 
"GOAL: 



1573, 
1575, 



POKE 1572,186 
254:P0KE 1574,56 
124: POKE 1576, 124 



C8 

<9 SPACES>ROUND: ";R; 

IF PEEK(25600>-104 THEN GOTO 119 

READ A: IF A>-1 THEN POKE 25600+1 , A: POKE 

712, A: I-I+ll GOTO 113 
REM mWSBBaMMBBME 
POKE 
POKE 
POKE 
POKE 
REM 
POKE 
REM 
POKE 
POKE 
POKE 

POKE 1587 
REM E**3 
POKE 1612, 
REM li3*:Vi=<: 
POKE 1591, 



1577,254: POKE 1578,254 



IZE OP PLAYER 



1611, 







POKE 53256, 

mnnn: 

1581, 129: POKE 1582,129 
1583, 255:P0KE 1584,126 



1585,90 



1586,60 



POKE 

POKE 

POKE 

REM 

POKE 



1593. 



POKE 
66: POKE 1588 

3STEZH9E! 

7: POKE 53257 

■BKEOg 

126:P0KE 
255:P0KE 



60 







1595, 102:POKE 
1597, 126: POKE 



IZE OF PLRYER 



1592, 219 
1594,219 
1596, 60 
1598, 231 



POKE 53258,0 
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6A 198 
FH 199 
Bh 200 
BO 201 
ON 202 
KJ 203 
HB 204 
OL 208 
ID 209 

FO 224 

SB 225 

6E 226 

AD 227 

FP 228 

m 229 



OB 239 
6N 240 



ON 245 

OD 249 
HA 250 

GI 251 

OA 254 
OA 255 

HO 256 



REM EHSEEE 
1601 



OB 259 


BH 260 


BP 261 


CC 262 


DH 263 


HF 269 



1605, 126 
1607,60: 



IZE OF PLHVER 



POKE 1601, 129 

POKE 1603,255 

POKE 

POKE 

REM 

POKE 1614, 7:P 

BOSUB PMINIT 

POKE 704, 14:P 

707, 40 
GOSUB XDIRECT 
30731 , DIRX: PO 
GOSUB XDIRECT 
30732, DIRX: PO 
GOSUB XDIRECT 
30733, DIRX: PO 
COLOR 3:PL0T 

76,55: POSITI 
,#6,0,0, "Si " 
COLOR 2: PLOT 
0,55: POSITION 
,0,0, " S : " 
PLOT 159,79:D 
POSITION 109, 
, " S : " 

rem EEHciiaaz 

COLOR 3:PL0T 
27,30:POSITIO 
6 , , , " S : " 
PLOT 62,54:DR 
ITION 0,54:XI 

rem BBncmnz 

PLOT 74,52:DR 
SITION 59,52 

PLOT 77,54:DR 
SITION 62,54: 
REM K[illj:hf:H' 
PLOT 126,49:D 
:POSITION 70, 
PLOT 132,54:D 
POSITION 77, 5 
REM lsrilli:H:HT 
PLOT 152,28:D 
:POSITION 108 
PLOT 159,33:D 
:POSITION 113 
PLOT 159,54:D 
:POSITION 132 
PLOT 113,33:D 
REM 



:POKE 1602,255 
:POKE 1604,90 
:POKE 1606,36 
POKE 1608,24 



OKE 53259,0 

OKE 705,0:POKE 706,30:POKE 

ION:GOSUB YD I RECT I ON : POKE 

KE 30735, DIRY 

ION:GOSUB YD I RECT I ON : POKE 

KE 30736, DIRY 

ION:GOSUB YD I RECT I ON : POKE 

KE 30737, DIRY 

109, 79: DRAWTO 81,55:DRAWT0 

ON 49,79:P0KE 765,3:XI0 18 

49,79:DRAWT0 76,55:DRAWT0 
0,79:POKE 765,2:XI0 18, #6 

RAWTO 159,55: DRAWTO 81,55: 
79:P0KE 765,2:XI0 18, #6,0, 



56,51:DRAWT0 2B,30:DRAWTO 
N 0,51:POKE 765,3:XI0 18, # 

AWTO 56,51:DRAWT0 0,51:POS 
18, #6, 0, 0, "S: " 



AWTO 68,47:DRAWT0 67,47:P0 
XIO 18, #6, 0,0, "S: " 
AWTO 74,52:DRAWT0 59,52:P0 
XIO 18, #6, 0,0, "S: " 



RAWTO 101, 21:DRAWT0 100,21 
49: XIO IB, #6, 0,0, "S: " 
RAWTO 126,49: DRAWTO 70,49: 
4: XIO IB, #6, 0,0, "S: " 



RAWTO 128, 1 1: DRAWTO 127,11 
,28: XIO 18, #6, 0,0, "S: " 
RAWTO 152, 28: DRAWTO 108,28 
,33: XIO 18, #6, 0, 0, "S: " 
RAWTO 159, 33: DRAWTO 113,33 
,54: XIO IB, #6, 0, 0, "S: " 
RAWTO 132,54 



HEHUEHLV G«TET5 
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6K 270 

NH 271 

AL 272 
AL 273 

JF 274 

JI 275 

6C 276 



CB 280 
FO 290 
LB 291 
DA 292 
CL 293 

IH 294 

HO 295 



COLOR l:FOR X=0 
O 49+X,45:NEXT X 
FOR X=0 TO 2:PL0 
,45:NEXT X 
REM BBTIBIgiaarjE 
COLOR l:PLOT 0,0 
9,79:DRAWT0 0,79 
RESTORE 10000: FO 
, 16: NEXT I 
FOR X=0 TO 48 ST 
9:DRAWT0 55+X,A: 
PLOT 52,53:DRAWT 
72, 51 : DRAWT 
92, 51 : DRAWT 
712. 140: POK 



TO 2:PL0T 49+X , 79 : DRAWT 
T 107+X, 79: DRAWTO 107+X 



AWTO 

AWTO 

POKE 

REM 

POKE 

POKE 

POKE 



: DRAWTO 159,0:DRAWTO 15 

:DRAWTO 0,0 

R 1=0 TO 4:P0KE 40807+1 

EP 4:READ A:PLOT 55+X,7 
NEXT X 

60,49:DRAWTO 66,51:DR 
O 79,47:DRAWT0 86,51:DR 
O 98,49:DRAWT0 106,53 
E 54286, 192: SCORSAV=0 



INITIAL PLAYER POSITIO 



53248, 120: P 
1536, 54: POK 
53249, 55: PO 
0:POKE 30727,30 
POKE 53250, 190: P 
190:POKE 30728,3 
POKE 53251, 120:P 
120:POKE 30729,3 



HK 300 


REM 


BL 305 1 


POKE 30742, ROUND 


CK 306 1 


POKE 559,46:JIFF 


OE 307 1 


POKE 18,0:POKE 1' 


HH 3 1 ! 


rem i:r:n:«*iii]:; 


6L 320 i 


Q=USR (25600) 


BD 7800 


rem i^mn'mu^'Am 


AC 7805 


SCORE=10000* (PEI 




K(4080B) -16) +101 




PEEK (40810) -16) 


HH 7806 


IF SCORE>SCORSA' 


NF 7307 


SOTO 7900 


JN 7810 


ROUND=INT (ROUND: 




R0UND=15 


NN 7820 


SCORSAV = SCORE: Gl 

D 

GOTO 300 


JO 7830 


AL 7899 


pm h:i»m , 1^'T:1SI = 


6J 7900 


POKE 1562, 1 : GRAI 




OKE 53248+X,0:NI 




; "GAME OVER" : GO: 


CB 7905 


GOSUB PMINIT 


AD 7910 


POSITION 1,5:? i 

E 

POSITION 2,8:7 i 


DJ 7920 


EA 7930 


POSITION 2,9:? i 



OKE 30722, 120 

E 30726,54 

KE 30723, 55: POKE 1537,3 

OKE 1538,30:POKE 30724, 



OKE 1539,30:POKE 30725, 



: POKE RNDOVR,0 
IES=3*60: GOSUB WAIT 
9,0:POKE 20,0 



annas 

EK (40807) -16) +1000* (PEE 
0*(PEEK(40809)-16)+10*( 
+PEEK (4081 1 ) -16 
V THEN GOTO 7810 

*0.87):IF R0UND<15 THEN 

OSUB TUNE:GOSUB NXTROUN 



PHICS 18:F0R X=0 TO 3:P 
EXT X:POSITION 2,3:? #6 
SUB ENTUNE 

#6; "FINAL SCORE =";SCOR 

#6; " I -.3:1 =*■-*■-«--* rf:T:*i " 
#6;" gSMETJEDGB " 



131 



Chapter 4 



JG 7940 IF PEEK (53279) <>6 THEN 7940 

GO 7945 POKE 53278, 1 

HB 7950 SCDRE = 0: ROUND = 50: POKE RNDO VR , : R= 1 : GOT — 

110 

EC 8000 REM ROUTINE TO LOAD THE P/M 

NJ8010 REM HANDLER. 

LL 8015 RESTORE 8100 

KD 8020 FOR 1=0 TO 234 

DB 8030 READ J 

LE 8040 POKE 1536+1, J 

FF8050 NEXT I 

KO 8060 RETURN 

IDB100 DATA 0,0,0,0,0 

IE 81 10 DATA 0,0, 0, 0, 

IF 8120 DATA 0, 0, 0, 0, 

IG 8130 DATA 0, 0, 0, 0, 

IH8140 DATA 0,0,0,0,0 

PP8150 DATA 0,0,35,6,45 

BA8160 DATA 6,55,6,65,6 

IK8170 DATA 0,0,0,0,0 

IL8180 DATA 0,0,0,0,0 

IM8190 DATA 0,0,0,0,0 

IE 8200 DATA 0,0,0,0,0 

IF 8210 DATA 0,0,0,0,0 

IG 8220 DATA 0,0,0,0,0 

IH 8230 DATA 0,0,0,0,0 

II 8240 DATA 0, 0, 0, 0, 

00 8250 DATA 0,0,0,0,104 

M 8260 DATA 162,6,160,90,169 

KN 8270 DATA 7,32,92,228,96 

KF 8280 DATA 173,26,6,208,6 

NC 8290 DATA 32,187,6,32,104 

OF 8300 DATA 6,76,98,228,169 

CH8310 DATA 3,133,203,166,203 

NN 8320 DATA 189,0,6,133,205 

HM8330 DATA 188,8,6,157,8 

KK 8340 DATA 6,189,75,6,133 

GH 8350 DATA 204,138,10,170,189 

AJ 8360 DATA 16,6,133,206,189 

AI18370 DATA 17,6,133,207,189 

AP 8380 DATA 27,6,133,208,189 

AN 8390 DATA 28,6,133,209,166 __ 

CO 8400 DATA 204,169,0,145,206 

BC8410 DATA 136,192,255,240,3 

GA 8420 DATA 202,16,246,364,204 

JO 8430 DATA 177,208,164,205,145 

JF 8440 DATA 206,136,132,205,192 

DJ 8450 DATA 255,240,4,198,204 

DN8460 DATA 16,237,198,203,16 

BD 8470 DATA 178,96,162,3,173 
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AE 8480 
AN 8490 
JO 8500 
HA 8510 
H6 8520 
BE 8530 
Hit 8540 
KC 8550 
60 8560 
KP 8700 
HH 9000 
IF 9005 

PA 9020 
HL 9030 
HL 9045 
6E 9050 
ES 9056 
PN 9058 
EK 9060 

HP 9100 
KA 9 1 1 
HB 9120 
JJ 9130 
EA 9140 
IE 9150 
FN 9160 
IF 9170 
EF 9180 



133, 206, 173 



IL 
FI 
ID 
EC 
JC 
FN 
IK 
EI 
JJ 
GC 
JB 
EF 
DM 
EC 
KF 
FK 
61 
GN 
KP 



9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9400 
9420 
9430 
9440 
9450 
9590 
9600 
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25,6, 133,207, 188 
12,6, 189,231,6 
49, 206, 145, 206, 
4,6, 189,227,6 
17, 206, 145, 206, 152 
157, 12, 6, 202, 16 
229, 96, 2, 12, 32 
192, 252, 242, 207,47 



ROUTINE 



CSET GRBPHIC5 MODE 



H3I5§£33]S 



MISSILE ADDRESS 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

RETURN 

REM P/M INITIALIZATION 

REM HSnTiM 

{12 SPftCES}[3SaH 

I=PEEK ( 106) -32 

POKE 54279, I 

REM H2I3J5iaCaEEB5 

POKE 53277,3 

REM aBMEEHHaOBS 

POKE 623, 1 

REM \-lW.YW 

{12 SPACES >EEHDO 

PMBASE=I*256 

MISSILE=PMBASE+384 

J=INT (MISSILE/256) 

POKE 1560, (MISSILE-J*256) 

POKE 1561, J 

PLAYER0=PMBASE+512 

J=INT(PLAYER0/2 56) 

POKE 1552, (PLAYER0-J*256) 

POKE 1553, J 

PLAYERl=PMBASE+640 

J=INT( PLAYER 1/256) 

POKE 1554, (PLAYER1-J*256) 

POKE 1555, J 

PLAYER2=PMBASE+768 

J=INT(PLAYER2/256) 

POKE 1556, (PLAYER2-J*256) 

POKE 1557, J 

PLAYER3=PMBASE+896 

J=INT (PLAYER3/256) 

POKE 1558, (PLAYER3-J*256> 

POKE 1559, J 

REM rarer 

FOR J=PMBASE 
POKE J,0 
NEXT J 
REM 



3533 
TO PMBASE+1024 



START VBLBMK ROOTI 



A=USR (1615) 
RETURN 
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HL 10000 DATA 50, 4B, 48,50, 49,48, 46, 

, 48, 50 
6H 12000 REM EESEEOOEgl 
NG 12010 DL = PEEK (560) +256*PEEK (561 ) 
AP 12020 POKE DL + 59,141 
NP 12030 RESTORE 13000:1=30464 
Fh 12040 READ A: IF A = -l THEN BOTO 12080 
NN 12050 POKE I , A 
CE 12060 1 = 1 + 1 
CK 12070 GOTO 12040 

OH 12080 POKE 512,0:POKE 513,119 
Nh 12090 RETURN 
EP 13000 DATA 72,138,72,152,72,169,134,141,10, 

212, 141, 24, 20 8, 104, 168, 104, 170, 104, 64 
IH 13999 DATA -1 

MF 14000 REM h*l]:!i»iHi=l:IiU**<:; a 
HD 14010 SOUND 0,0,0,0 
BK 14015 RESTORE 14060 
HD 14020 READ A, JIFFIES: IF A = -l THEN FOR 1=0 T 

O 3:S0UND I,0,0,0:NEXT I : RETURN 
BP 14030 SOUND 0, A, 10, 8: SOUND 1 , A+ 1 , 1 , 8 : SOUND 

2, A+2, 10, 8: SOUND 3,A+3,10,8 
KO 14040 GOSUB WAIT 
CK 14050 GOTO 14020 
ND 14060 DATA 180,3,145,3,121,3,90,15,121,3,90 

,25,-1,-1 
BN 15000 REM |a;:i>lili:i;«.-ll]:l:IilHH:ia 
ME 15010 SOUND 0, 0, 0, 
BM 15015 RESTORE 15060 
ME 15020 READ A, JIFFIES: IF A = -l THEN FOR 1=0 T 

3:S0UND I,0,0,0:NEXT I : RETURN 
CJ 15025 IF A = THEN FOR 1=0 TO 3:S0UND 1,0,0, 

0:NEXT I:GOTO 15020 
CA 15030 SOUND , A , 1 , 8 : SOUND 1 , A+ 1 , 1 , 8 : SOUND 

2, A+2, 10, 8: SOUND 3,A+3,10,8 
KP 15040 BOSUB WAIT 
CI 15050 BOTO 15020 
00 15060 DATA 200,25,0,1,200,20,0,1,200,3,0,1, 

200,20,0, 1, 170, 15,0,1, 180, 10,0,1 
DL 15070 DATA 180,10,0,1,200,7,0,1,200,10,0,1, 

200, 10,0, 1, 20 0, 50, -1,-1 

FOR 1=0 TO 4:P0KE 40847+ I , PEEK ( 40B07+ 

1 ) :NEXT I 
R = R+1 

IF R>9 THEN POP : GOTO WIN 
POKE 40B60,R+16 
RETURN 
REM EHaEgHMlIU 

POKE 1562, 1 : GRAPHICS 18:F0R X=0 TO 3: 

POKE 53248+X, 0: NEXT X 



CK 


16000 


DF 


16010 


NE 


16015 


DK 


16020 


KK 


16030 


JA 


17000 


CC 


17010 



~l 
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17020 
17030 
17040 
17050 
17060 
17070 



POSITION 
POSITION 
POSITION 
POSITION 



2,1s? 
2, 2: ? 
2, 3: ? 
2,4:? 



#65 "YOU HAVE BEATEN" 
#6;"THE DEMONS BACK! 
#6; "YOU GET 5000" 
#6; "BONUS POINTS ! ! ! " 



ij**:r:T^grren 



SCOR 



LH 17080 

PH 17090 

PJ 17091 

Ofl 17100 

W 17110 

JK 18000 
BO 18020 

ni 18030 



"press start" 
"to play again 



SCORE=SCORE+5000 

POSITION 2,6:? #6; 

E 

POSITION 2,8:? #6; 

POSITION 2,9:? #6; 

60SUB WINSOUND 

IF PEEK<53279) <>6 THEN 17100 

ROUND=50: POKE 559 , : SCORE=0 : POKE RNDO 

VR, 0: R=l : BOSUB PMINIT:GOTO 110 

rem ign:i.-i.n]:i>»:iiii>**:r5 

RESTORE 18060 

READ A, JIFFIES: IF A=-l THEN FOR 1=0 T 

3:S0UND I,0,0,0:NEXT I : RETURN 
CI 18035 SOUND , A , 1 , 8 : SOUND 1 , A+ 1 , 1 , 8 : SOUND 

2, A+2, 10, 8: SOUND 3,A+3,10,8 
LC 18040 BOSUB WAIT 
DO 18050 60T0 18030 
JC 18060 DATA 200,30,180,30,160,30,150,30,133, 

30, 118,30, 105,35, 100, 70, -1 ,-1 

REM l=rzTH :H:W>:i: mi-.w m *:* *: 



AH 19999 
FB 20000 



BC 20010 



NX 20020 



PI 20030 



20040 



20050 



AE 20060 



EE 20070 



DATA 104, 169, 0, 133, 77, 174, 22, 120, 32, 8 

0, 103, 173, 120, 2, 201, 5, 240, 27, 201, 6, 24 

0, 23, 20 1,7, 240, 19, 201, 9, 240 

DATA 24,201, 10, 240, 20, 201, 11, 240, 16, 1 

69, 0, 141 , 10, 120, 240, 14, 169, 1, 141, 10, 1 

20, 169, 0, 240, 5, 169, 255, 141 

DATA 10, 120, 173, 120, 2, 201, 5, 240, 27, 20 

1,9, 240, 23, 201, 13, 240, 19, 201, 6, 240, 24 

,201, 10, 240, 20, 201, 14, 240 

DATA 16, 169, 0, 141, 14, 120, 240, 14, 169, 1 

, 141, 14, 120, 169,0,240,5, 169, 255, 141,1 

4, 120, 173,2, 120,24, 109, 10 

DATA 120, 141 ,2, 120, 201 , 48, 208, 5, 169, 4 

9,141,2, 120,201,200,208,5, 169, 199, 141 

,2, 120, 173, 6, 120, 24, 109, 14 

DATA 120, 141,6, 120, 201, 25, 208, 5, 169, 2 

6,141,6, 120,201,95,208,5, 169, 94, 141,6 

, 120, 173,2, 120, 141,0,208 

DATA 173, 6, 120, 141 , 0,6, 162, 1 , 32,52, 10 

1,232,224,4,208,248, 173, 23, 120,208, 11 

,173, 12,208, 240,49, 32, 192 

DATA 101,76,244,100,173,12,208, 208, 20 

,169, 0,141, 23, 120, 141, 0,210, 141, 1,210 

,141,2,210, 141, 3, 210, 76, 244 
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BC 20220 
>0230 
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CC 20240 DATA 173,106,159,24,105,1,201,26,16,4 
, 141 , 106, 159, 96, 169, 16, 141, 106, 159, 17 
3, 105, 159, 24, 105, 1, 201, 26 

AE 20250 DATA 16,4,141,105,159,96,169,16,141,1 
05, 159, 173, 104, 159, 24, 105, 1, 201, 26, 16 
,4, 141, 104, 159, 96, 169, 16 

JC 20260 DATA 141,104,159,173,103,159,24,105,1 
, 141, 103, 159, 96, 24, 109, 107, 159, 201, 16 
, 48, 4, 141 , 107, 159, 96, 2 4, 105 

1020270 DATA 10,141,107,159,173,106,159,56,23 
3, 1,201, 16, 48, 4, 141, 106, 159, 96, 24, 105 
, 10, 141, 106, 159, 173, 105, 159 

BN 20280 DATA 56,233,1,201,16,48,4,141,105,159 
,96, 24, 105, 10, 141, 105, 159, 173, 104, 159 
,56, 233, 1,201, 16, 48, 4, 141 

F0 20290 DATA 104,159,96,24,105,10,141,104,159 
, 173, 103, 159, 56, 233, 1,201, 16, 48, 4, 141 
, 103, 159, 96, 169, 16, 141, 103 

DO 20300 DATA 159,141,104,159,141,105,159,141, 
106, 159, 141, 107, 159, 96, 160, 0, 136, 208, 
253, 202, 208, 248, 96, 169, 30 

JD20310 DATA 56,229,19,208,6,169,1,141,25,120 
,96, 201, 10, 16, 12, 24, 105, 16, 141, 127, 15 
9, 169, 16, 141, 126, 159, 96, 162 

GL 20320 DATA 0,56,232,233,10,201,10,16,248,24 
, 105, 16, 141, 127, 159, 138, 24, 105, 16, 141 
, 126, 159, 96 

IF 20999 DATA -1 
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Hopeful Journey 



Greg Furness 



Maneuver your spacecraft through increasingly more difficult ob- 
stacles as you try to complete your mission. Requires a joystick. 

Your mission is to maneuver your spaceship through ten 
increasingly difficult waves of wandering, deadly defense mat- 
ter. The defense matter is part of disarrayed defense lines 
which were attacked by enemy warships. The attack left the 
lines perforated and broken up into the floating matter. Your 
ship is radioed, while out on a mission, to tell you of the at- 
tack and your federation's dire need of you back on the 
planet. Hence, your "Hopeful Journey" awaits. 

The Journey 

This is an easy game to play. Just use your joystick to move 
down through or around the deadly matter to the gate at the 
bottom of the screen. The game is over when you either touch 
some of the defense matter or complete wave 10 and win. In 
either case you'll receive a final score. Wave 10 is solidly filled 
with defense matter and is extremely difficult to penetrate. 
The track at the bottom of each screen is the transporter bar 
which beams you to the next wave. 

Hopeful Journey 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

MC 10 DIM A*(60) ,B*(8) ,C«(8) ,D* (B) ,E*(1> 
6B 20 A* (1,60) ="hhhJHE<K>«<B>n3{E><:E>[aiIIE!5hJHE 
tK>«{BELL>Q3ICE>[5<2 OEEh JHE<:B>HCKIm<:[S> 

c, >SiJECB>i3aas<:G:><:, >e' C2 , > " 

AD 30 B*="ThH ISMdH" 
DI 40 C*="YoE SInQ" 
ID 50 BOSUB 590 
HM 60 BDSUB 420 
CO 70 Q = 6: L=l : GOTO 390 
HL 80 GOSUB 210 

BA 90 J = TIME:POKE 559,34:P0KE 559,62:P0KE 5327 
8,0:POKE 204,A+4:POKE 203,0:POKE 205,120 
AC 95 POKE 53278,0 
HM 100 REM **MAIN LOOP** 
CM 110 Z = USR (ADR (A*) , STICK (0) ) 
NA 120 A=INT(RND(0)*19):B=INT(RND(0)*O):C=INT( 

RND (0) *2) 
CO 130 Z = USR (ADR (At) , STJ.CK (0) ) 

138 



GA 


140 


GD 


150 


CE 


160 


DC 


170 


AQ 


180 


GF 


190 


OG 200 


HG 
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IF C = THEN E* = q'HR*(32) 

IF C=l THEN E*=CHR*<42) 

POSITION A,B:? #6;E*:S0UND 0,A+B,10,15: 

SOUND 0,0,0,0 

Z=USR<ADR(A*) ,STICK(0) ) 

IF PEEK (53252) < >0 THEN 330 

GOTO 110 

REM **DRAW PLAYFIELD** 

BRAPHICS E:POKE 559,0:POKE 756 , MEM/ 256 : 

POKE 704,15:POKE 708,196:POKE 710,66 
HA 220 IF L=10 THEN POKE 710,100 
KA 230 FOR Y = TO V STEP Q:FOR X = TO 19:P0SIT 

ION X,Y:? #6; "*" ; : NEXT X:NEXT Y 
JG 240 FOR X=0 TO 19-.P0SITI0N X,0:? #6;"E ,, :NEX 

T X 
KO 250 REM **SET-UP PLAYER** 

U 260 A=PEEK ( 106) -S: POKE 54279 , A : PMBASE= A*256 
HO 270 FOR I=PMBASE+1024 TO PMBASE+ 1 280 : POKE I 

,0:NEXT I:POKE 53277, 2:POKE 53248,120 
LO 280 RESTORE 290:FOR I =PMBASE+ 1 024 + 20 TO PMB 

ASE+1280: READ H:IF HO0 THEN POKE I,H:N 

EXT I 
PN 290 DATA 28,62,107,62,28,0 
AK 300 REM **TIME KEEPER** 
EC 310 TIME=(PEEK<20) +PEEK (19)*256 + PEEK(18)*25 

6*256) /60: RETURN 
CL 320 REM **CHECK COLLISION** 
FO 330 POKE 53277,0: IF PEEK ( 53252 )= 1 THEN E=l: 

1=255:0=5: D*=B*: GOTO 510 
JF 340 REM **NEXT WAVE** 
BP 350 FOR T=l TO 15:F0R R = 64 TO 78:S0UND 0,R, 

10,10:POKE 710,R:NEXT R:NEXT T:SOUND 0, 

0,0,0 
FF 360 IF Q>2 THEN Q = Q-1 
SH 370 L = L+1:IF L=10 THEN Q= 1 
HG 380 IF L=ll THEN E=255 : I = 1 : 0=- 1 : D*=C* : GOTO 

510 
DH 390 GRAPHICS 17:P0KE 756, MEM/256 
PE 400 POSITION 7,9:? #6;"WAVE ";L:FOR T= 1 TO 

5:F0R R=0 TO 255 STEP 5:P0KE 708,R:NEXT 
R:NEXT T:GOTO 80 
BI410 REM **SKILL LEVEL** 
LK 420 GRAPHICS 0:POKE 710,0:POKE 752,1:P0KE 7 

56, MEM/256 
PN 430 OPEN #1, 12, 0, "K: " 

KN 440 POSITION 3,10:7 "WOULD YOU LIKE TO PLAY 
SKILL LEVEL" : POSITION 17,11:? "D OR g 

? " 
DK 450 GET #1,A 
JL 460 IF A = ASC("1") THEN V = 9 : 0= 1 : E= 1 8 : GOTO 4 



90 



139 



Chapter 4 



HJ 470 

60 480 
IB 490 
AI 500 
KL 510 

CI 520 

DD 530 
OB 540 

EM 550 



CE 560 

DL 570 

CD 5S0 

FC 590 

GH 600 
ME 610 

EA 620 
MA 630 

JG 640 
M6 650 
DK 660 

DJ 670 
AN 680 
FJ 690 

AD 700 



IF A=ASC("2") THEN V=2 1 : 0=22 : E= 1 7 : SOTO 

490 

GOTO 450 

CLOSE #1:RETURN 

REM **FINISH ROUTINE** 

FOR T=l TO 3: FOR R=E TO I STEP O: SOUND 

0, R, 10, 10: NEXT R:NEXT T:SOUND 0,0,0,0 

GOSUB 310:K=TIME:T=INT(K-J> :SCORE=L*100 

0-T*10:IF SCORE>HI THEN HI=SCORE 

GRAPHICS 17:P0KE 756, MEM/256 

POSITION 4,3:? #6; " £a3BE*H5I ";HI:POSITI 

ON 5,5:7 #6: " ^33 3 5 "; SCORE 

POSITION 6,10:? #6 ; D* : POS I T I ON 4,17:? # 

6;"PRESS start" :POSITION 3,19:? #6;"Hl 

raass: again" 

IF PEEK <53279) <>6 THEN 560 

GOTO 60 

REM **CHAR SET** 

POKE 106, PEEK ( 106) - 

59, 

MEM= (PEEK ( 106) +28) * 256 

FOR SET=0 TO 1023:POKE 

44+SET) : NEXT SET 

POKE 756, MEM/256 

RESTORE 640:FOR SET=0 TO 7:READ 

KE 80+MEM+SET, CHAR: NEXT SET 

DATA 24,36,66,129,129,66,36,24 

REM **TITLE PAGE** 

GRAPHICS 17:P0KE 559,34:P0KE 708,0:POKE 

756, MEM/256 
POSITION 3,8:? #6; "HOPEFUL JOURNEY" 
POSITION 3,13:? #6; "BY GREG FURNESS" 
FOR R=2 TO 15:P0KE 70B,R:FOR T=l TO 50: 
NEXT T:NEXT R 

FOR R=15 TO STEP -l:POKE 708,R:FOR T= 
1 TO 50:NEXT T:NEXT R-.RETURN 



GRAPHICS 0:POKE 5 



MEM+SET, PEEK (573 



CHAR: PO 



~ 
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. Hoppo 



Ron Szabo 



Can you stay a safe distance from Spike and Grimo while trying to 
restore power to the islands of Zabonia? Your pursuers are fast 
and never get tired of the chase. "Hoppo" is a game for one player 
with a joystick. 

It's the twenty-third century and you're in the land of 
Zabonia. You are Hoppo, the champion of the Zabonians. The 
evil Grimo has destroyed the world's power plants. Since 
Zabonia is a world of islands, your mission is to hop from is- 
land to island and restore partial power to 54 of them. If you 
succeed, you will be transported to another part of the world 
to provide partial power for 54 other islands, but your task is 
not as easy as it seems. You must avoid the evil Grimo and 
his treacherous counterpart, Spike. When you reach the third 
level, you must also avoid the opening vacuum pits. If you 
survive this level, you'll receive a bonus life. 

Island Hoping 

"Hoppo" is a game for one player. To play, plug a joystick 
into port 1. Run the program and wait for about one minute 
while the program initializes (be sure to save a copy before 
trying to run it). When the animated title screen appears, you 
may select the speed and the level at which you wish to be- 
gin. To select the speed, move the joystick to the left. To select 
the level, move the joystick to the right. When you're ready to 
play, press the fire button. 

You begin on the lower-right island. You can move right 
and left, up and down, but not diagonally. 

There are four ways in which you can lose a life. The first 
way is by contacting Grimo. He'll push you off the island 
you're sharing. Contacting Spike is just as bad. He causes 
Hoppo to cry out. The third way is by falling through one of 
the vacuum pits. They will suck Hoppo into another dimen- 
sion. Finally, don't let Hoppo fall off the edge of the world. 
You will fall into the twilight zone. 

You receive 10 points for every island you restore power 
to. If power is restored to 54 islands, you receive a bonus of 
100*L, where L is the level completed, and you then advance 
to the next level. You start out with three lives and gain a bo- 
nus life after the third level. 
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Hoppo 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

HE 10 DIM SPD* (4) : GOSUB 1000:GOSUB 4000 

MA 20 POKE 77, 0:S = PEEK (632) : IF S=15 THEN SOTO 

30 
6G 22 IF S=li THEN X=X-20:GOTO 30 
DL 24 IF S = 7 THEN X = X + 20:GDTO 30 
HE 26 IF S=14 THEN Y = Y-16:G0TQ 30 
JN 28 IF S=13 THEN Y = Y+16 
EI 30 POKE PLX+l,X:POKE PLY+ 1 , Y : SOUND 0,120,10 

,8 
DG31 IF Y>164 OR X>172 OR X<72 OR Y<36 THEN G 

OTO 920 
NO 35 IF X1 = X THEN B=l:GOTO 42 
OE 37 IF X1>X THEN S = 4:G0T0 42 
DD 39 S = 7 

KJ 42 IF Y1=Y THEN 50 
FO 44 IF Y1>Y THEN S = S+l:GOTO 50 
KK 46 S = S + 2 
HN 50 ON S GOTO 900,51,52,53,150,150,54,150,15 


CE 51 Y1=Y1-16: GOTO 60 
CD 52 Y1=Y1 + 16: GOTO 60 
BP 53 Xl = Xl-20: GOTO 60 
BO 54 Xl=Xl+20: GOTO 60 

PI 60 POKE PLX,X1:P0KE PLY,Y1:S0UND 0,240,10,8 
AI61 IF X1=X AND Y1=Y THEN GOTO 900 
EN 65 PC= ( (Y-28) *5) + ( (X-48) /4) 
PJ 67 IF L>2 THEN GOSUB 200 
10 72 IF PEEK (SC+PC) =99 THEN POKE SC + PC,225:SC 

R=SCR+10: POSITION 9,20:? SCR;:LET COM=CO 

M+1:IF C0M=54 THEN GOTO 500 
FG 74 IF D<1 OR D>5 THEN X2= ( ( I NT ( RND ( ) * 6 ) * 20 

)+72) :Y2=( (INT(RND(0)*9)*16)+36) :POKE PL 

X+2,X2:P0KE PLY+2,Y2:D=0 
GP 76 D = D+1: IF X2=X AND Y2 = Y THEN GOTO 940 
JK 78 IF PEEK (SC + PC) =101 THEN GOTO 920 
CO 80 SOUND 0,0,0,0:FOR 1 = 1 TO SPD:NEXT I : GOTO 

20 
LJ 150 I = INT (RND (0) *2) : IF (S = 5 OR S = 6) AND 1 = 1 

THEN GOTO 53 
AE 151 IF (S = 8 OR S = 9) AND 1 = 1 THEN GOTO 54 
HE 152 IF (S = 5 OR S = 8) AND 1=0 THEN 51 
DJ 153 GOTO 52 

6L 200 IF D>0 AND D<6 THEN RETURN 
BA 202 LD = L-1:IF LD>9 THEN LD = 9 

HB 204 FOR 1 = 1 TO LD : TP ( I ) = ( ( I NT ( RND ( ) * 6 ) *5 ) + 
6)+( ( INT (RND (0) *9) *S0)+40) 
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«J 206 
FI 208 
CD 210 
OP 220 
EK 500 

FB 502 
IK 504 

CB 505 



CO 506 
flH 508 
!P 700 



PO 702 

HP 703 

II 704 

EG 750 



NJ 75 1 



HG 754 
IJ 760 
DB 762 
GF 764 
ID 766 
AC 7B0 
ftP 781 
HC 782 
NF 783 
DI 784 
PN 800 



801 



101:POKE SC+TP ( I ) +1 , 102: N 
AND D = THEN SCJSUB 220:RE 



POKE SC+TP (I) 

EXT I 

IF TP (LD+1 ) =0 

TURN 

FDR 1 = 1 TO LD:POKE SC + TP ( LD+ I ) , 9? : POKE 

SC+TP (LD+I > +1 , 100: NEXT I 

FOR 1=1 TO LD: TP (LD+I ) =TP ( I ) : NEXT I : RET 

URN 

SOUND 0, 0, 0, 0: BONUS=L* 100: POSITION 13,2 

1:? " BSSMSSM MMMB" '. POSITION 14,22:? "BO 

NUS: "; BONUS; : POSITION 9,20 

SCR=SCR+BONUS: 7 SCR;:FOR 1=1 TO 200:SOU 

ND 0, RND <0) *40+20, 10, 8: NEXT I 

SOUND , 0, 0, 0: L=L+1 : LET COM=0:D=0:IF L= 

4 AND LVL<>3 THEN L I VES = L I VES+ 1 : POS I T I 

n 13,23:? " msnnMM SMMB" ; 

IF L=4 AND LVL<>3 THEN FOR 1=1 TO 100:S 

OUND 0, RND (0) *40, 10, 8: NEXT I : SOUND 0,0, 

0,0 

IF L>10 THEN L=10 

GOSUB 780:BOTO 800 

FOR 1=1 TO 50:NEXT I : L I VES=L I VES- 1 

IVES=0 THEN POSITION 14,21:7 "GAME 

";:SOUIMD 0,0,0,0:GOTO 750 

POSITION 26,20:7 " L I VES = " ; : GOSUB 780 

N*:X=172:Y=164:X1=72:Y1=36: GOSUB 760 

FOR 1=1 TO 20: TP < I ) =0: NEXT I:D=0 

POKE PLX,X1:P0KE PLY,Y1:P0KE PLX+l.X 

KE PLY+1,Y:G0T0 20 

POSITION 26,20:7 "LIVES={4 SPACES>"; 



IF L 
OVER 



PO 



PO 



SITION 8,22: 



IF P 

, 0: S 

= " b 

GOTO 

IF T 

FOR 

POKE 

RETU 

ON L 

N$=" 

N*=" 

Nt=" 

N$=" 

GRAP 

KE P 

EEK ( 

FOR 

OLOR 



EEK (644 
CR=0: L= 
b b":PO 

751 
P (LD+1 ) 
1 = 1 TO 

SC + TP ( 
RN 

IVES GO 
bC6 SPA 
b b -C4 S 
b b b 
b b b b 
HICS 
LX, 0: PO 
560) +25 
1=0 TO 

1,9,4 



"TO PLAY AGAIN, PRESS M33M 

)=0 THEN GOSUB 8015:POKE 559 
LVL: LIVES=3: D=0: LET COM=0:N* 
KE PLX+2,0:GOTO 800 



=0 THEN RETURN 
LD:POKE SC+TP(LD+I) 
LD+I ) +1 , 100: NEXT I 



99 



TO 781,782,783,784 

CES1 " : RETURN 

PACES} " : RETURN 

" : RETURN 

" : RETURN 

SETCOLOR 2,0,0:POKE 752,1:P0 

KE PLX+1,0:POKE PLX+2,0:DL=P 

6*PEEK (561 ): POKE DL+3,68 

18:P0KE DL+6+I , 4: NEXT I : SETC 
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KI 802 POKE 756,CADR/256: X = 172: Y=164: Xl=72: Yl = 

36-.F0R 1 = 1 TO 20: TP ( I ) =0: NEXT I 
PG 804 ? : FOR 1 = 1 TO 9:? " { 4 SPACESJcd 

£3 SPACESJcd<:3 SPACESJcd<:3 SPACES>cd 

{3 SPACESJcd<:3 SPACES^cd" 
JP 806 ? :NEXT I 
LE 808 POSITION 3,20:7 " SCORE= " ; SCR ; : POS I T I ON 

26,20:? "LIVES=";N*; 
CL810 SC = PEEK (88) +256*PEEK (89) 
ED812 POKE 559,62:P0KE PLX,72:P0KE PLY,52:P0K 

E PLX+1, 172:P0KE PLY+ 1 , 1 32 : POKE 752,1 
0C814 POKE 559,62: IF SRT=1 THEN SRT = 0:RETURN 
DK816 GOTO 20 
AC 900 POKE PLY+1 , Y + 8: FOR 1 = 1 TO 5:F0R OUCH=l 

TO 15:P0KE PLY , Y 1 -3 : SOUND , 255 , 8 , 1 5 : FO 

R D=l TO 2:NEXT D 
BB 902 SOUND 1 , 40-OUCH , 1 , 8 : POKE PLY,Yl:FOR D = 

1 TO 2:NEXT D:SOUND 0,0,0,0:POKE 705,64 

+ OUCH.-NEXT OUCH:NEXT I 
PB 904 Y = Y+16:P0KE 705,202:BOTO 920 
CN 920 FOR I=Y TO 244 STEP 16:POKE PLY+1, I : FOR 
D=0 TO 4:S0UND , I - ( 4*D ) , 1 , 8 : NEXT D:N 

EXT IrSOUND 0,0,0,0:POKE PLX+1, 
GM 922 DUR = 6: PIT = 20: SOUND 2 , 75 , 8 , 1 5 : I CR = . 79 + D 

UR/100:V1=15:V2=15:V3=15 
PB 924 SOUND , P I T , 8 , V 1 : SOUND 1 , P I T + 20 , 8 , V2 : SO 

UND 2, PIT+50, 8, V3 
CE 926 Vl=Vl*ICR:V2=V2*(ICR+0.05) :V3=V3*(ICR+0 

. 08) : IF V3M THEN 924 
JI 928 FOR 1=0 TO 2:S0UND I,0,0,0:NEXT I s IF Z = 

1 THEN Z=0:RETURN 
Gfl 930 GOTO 700 
MA 940 POKE PLX + 2,0:FOR 1 = 1 TO 10:FOR OUCH = T 

15:P0KE 705, 64+OUCH: SOUND 0,40-OUCH-I 

,10,8:NEXT OUCH:NEXT I 
DL 942 SOUND 0,0,0,0:POKE 705,202:GOTO 700 
IC 999 END 

LH 1000 PRINT " {CLEAR} <DOWN> INITIALIZING" 
CJ 1001 PRINT " CDOWN>PLEASE WAIT..." 
OH 1010 FOR 1 = 1536 TO 1706:READ A:POKE I,A:NEX 

T I 
EN 1020 FOR 1 = 1774 TO 1787:P0KE I,0:NEXT I 
NC 1030 PM = PEEK ( 106) -16: PMBASE = 256*PM 
PO 1040 FOR I=PMBASE+1023 TO PMB ASE + 2047 : POKE 

I , 0: NEXT I 
KA 1050 FOR I=PMBASE + 1025 TO PMBASE+ 1 030 : READ 

A:POKE I,A:NEXT I 
LE 1060 FOR I=PMBASE+1281 TO PMBASE+ 1 288 : READ 
A:POKE I,A:NEXT I 
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LI 1065 FDR I=PMBASE+1537 TO PMBASE+ 1 544 : READ 

A:POKE I,A:NEXT I 
LF 1070 POKE 704,40:POKE 705,202:POKE 706,255 
6P 1030 PLX = 5324S: PLY=1780: PLL=17B4 
6H 1090 POKE 623,1:P0KE 1 788 , PM + 4 : POKE 53277,3 

:POKE 54279, PM 
HI 1 100 X = USR ( 1696) 

FP 1110 POKE PLL,6:P0KE PLL + 1 , S : POKE PLL + 2,8 
CK1120 POKE PLX,0:POKE PLY,0:POKE PLX + 2,0:POK 

E PLY+2,0 
L6 1130 POKE PLX + 1,0:POKE PLY+1,0 
K6 1140 RETURN 

PI 2000 REM * VBLANK ROUTINE DATA * 
6P2010 DATA 162,3,189,244,6,240,89,56,221,240 

,6, 2 40, 83, 141, 254, 6, 106, 141 

DG 2020 DATA 255,6,142,253,6,24,169,0,109,253, 

6, 24, 109, 252, 6, 133, 204, 133 
EC 2030 DATA 206,189,240,6,133,203,173,254,6,1 

33, 205, 189, 248, 6, 170, 232, 46, 255 
ED 2040 DATA 6,144,16,168,177,203,145,205,169, 

0, 145, 203, 136, 202, 208, 244, 76,87 
PE 2050 DATA 6,160,0,177,203,145,205,169,0,145 

,203, 200, 202, 208, 244, 174, 253, 6 
KM 2060 DATA 173,254,6,157,240,6,189,236,6,240 

,48, 133, 203, 24, 138, 141, 253, 6 
NE 2070 DATA 109,235,6,133,204,24,173,253,6,10 

9, 252, 6, 133, 206, 189, 240, 6, 133 
BL 2080 DATA 205,189,248,6,170,160,0,177,203,1 

45, 2 05, 200, 202, 208, 248, 174, 253, 6 
C6 2090 DATA 169,0,157,236,6,202,48,3,76,2,6,7 

6, 98, 228, 0,0, 104, 169 
OF2100 DATA 7,162,6,160,0,32,92,228,96 
OC 3000 REM *(Z SPACESJPLAYER DATAC3 SPACES}* 
JD3001 REM * LINE 3010-GRIMO * 
JN 3002 REM * LINE 3020-HOPPO * 
JF 3003 REM * LINE 3030-SPIKE * 
HI 3010 DATA 130,186,214,56,68,56 
OP 3020 DATA 108,40,124,84,124,84,68,56 
UK 3030 DATA 8,8,8,28,28,62,62,28 
KF 4000 POKE 106, (PEEK ( 106) -5) : GRAPHICS 0:POKE 

752, 1 : SETCOLOR 2,0,0:GOSUB 7000 
JN4010 CADR = 256* (PEEK ( 106) +1 ) 
KC 4020 FOR 1=0 TO 1023:POKE CADR+ I , PEEK ( 57344 

+1 ) : NEXT I 
KP 4040 FOR 1=0 TO 47:READ X : POKE 776 + CADR+I,X 

:NEXT IiBOSUB 8000 
FK 4060 DATA 15,63,255,255. 

0, 124, 80, 124, 80,68! 
DD 4070 DATA 10,42,170,170. 

68, 170, 170, 170, 170J 
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IE 40B0 DATA 10,40,160,128,128,160,40,10,160,4 

0, 10,2,2, 10, 40, 160 
SM 5000 SCR = 0:LET COM = 0:DIM N* ( 1 ) , TP ( 20 ) : SRT= 

l:N*="b b b" : LIVES=3: GOTO 800 
SK 7000 ? :? :? :? :? :? :? "<:3 SPACES3-H 

£3 SPACESJH ODO PPPP PPPP 

£3 SPACES>DDO" 
MG7010 FOR 1 = 1 TO 2:? "C3 SPACESX-K3 SPACESJH 
0C3 SPACESJO PiZ SPACESJP P 

{3 SPACES>P OC3 SPACESJO" : NEXT I 
HA 7020 ? "C3 SPACES>HHHHH 0<3 SPACES>0 PPPP 

PPPP OiZ SPACES>0" 
CI 7030 FOR 1 = 1 TO 2:? " IZ SPACES>HC3 SPACES>H 
0C3 SPACESJO PC5 SPACES>P{5 SPACESJO 

<3 SPACESJO" : NEXT I 
FI 7040 ? "C3 SPACESJHC3 SPACESJH OOO P 

<5 SPACES>P<:6 SPACES>000 M 
m 7050 RETURN 
PH 8000 BRAPHICS 0:SETCOLOR 2,0,0:POKE 752, 1:D 

L=PEEK (560) +256*PEEK (561 ) : FOR 1=20 TO 

22:P0KE DL+I,4:NEXT I 
JL 8002 60SUB 7000:POKE 756 , CADR /256 : SETCOLOR 

1,9,4:? :? :? :? "C4 SPACESJcd 

£3 SPACES>ccK3 SPACES>cdC3 SPACESJcd 

C3 SPACESJcd£3 SPACESJcd" 
AA 8004 POKE 559,62:P0KE PL Y+ 1 , 1 56 : POKE PLX+1, 

72: SOUND 0, 120, 10,8:SC=PEEK(8B)+256*PE 

EK(89):P0KE SC+646,225 
FI 8006 FOR 1 = 1 TO 10:NEXT I : SOUND 0,0,0,0:FOR 
1=0 TO 50:NEXT I : POKE PL X + 1 , 92 : SOUND 

0, 120, 10, 8: POKE SC + 651,225 
JH 8008 FOR 1 = 1 TO 10:NEXT I : POKE PLY,156:P0KE 
PLX,72:S0UND , 240 , 1 , 8 : FOR 1=1 TO 10 

: NEXT I : SOUND 0,0,0,0 
HL8010 FOR 1 = 1 TO 50:NEXT I : POKE PLX+1 , 1 12s PQ 

KE SC+656, 225: SOUND , 1 20 , 1 , 8 : FOR 1=1 
TO 10:NEXT I 
PKB012 POKE PLX,92:SOUND , 240 , 1 , 8 : FOR 1 = 1 T 

10:NEXT I:SOUND 0,0,0,0:FOR 1=1 TO 3 

5:NEXT I : POKE SC + 661,101 
PK8014 POKE BC + 662, 102: FOR 1 = 1 TO 15:NEXT I:P 

OKE PLX+1 , 132: Y=164: Z=l : GOSUB 920 

FP8015 FOR 1=20 TO 22:P0SITI0N 0,I:PRINT " 

C34 SPACESJ " : NEXT I : SPD= 1 : SPD*= " SLOW " 
NO8016 POSITION 4,21:? " SPEED = SLOW " ; : SPD= 1 : PO 

SITION 27,21:? " LEVEL= 1 " ; : L VL= 1 : POS I T I 

ON 11,22:? "PRESS \MHSM TO START" 
HHB017 OSS = STICK (0) : IF 0SS=11 THEN SPD = SPD+1: 

GOSUB B100 — 
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CG8018 IF 0SS = 7 THEN L VL = L VL+ 1 : I F LVL>9 THEN 

LVL=1 
KLB019 FOR 1 = 1 TO 10:NEXT IsIF STRIG(0)=0 THE 

N SOTO 8050 
DM8020 POSITION 10,21:? SPD* ; : POS I T I ON 33,21: 

? LVL:GOTO 8017 
FF 8050 ON SPD BOTO 8052,8054,8056 
NF 8052 SPD=100:BOTO 8060 
JL 8054 SPD = 50:SOTO 8060 
618056 SPD = 0:GOTO 8060 

CN 8060 POKE PLX,0:POKE PL X + 1 , : L = LVL : RETURN 
DE8100 IF SPD>3 THEN SPD=1 
EN8102 ON SPD GOTO 8 104,8106,8108 
LI 8104 SPD*="SLOW" : RETURN 
HJ8106 SPD*="MED. ": RETURN 
KF8108 SPD*="FAST" : RETURN 
KK8110 RETURN 
AL 10000 GOSUB 5000: GOTO 20 
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Using redefined characters, "Termite" is a good example of how 
graphics and sound can enhance the thrill and excitement of com- 
puter games. Requires a joystick. ^ 

Tunnel your way through a delicious piece of wood. Munch 
on knots, spider eggs, and magical goblets. Beware, though, of 
the deadly spider. This crafty arachnid seeks you out. 

Your termite has one powerful weapon against the spider — 
thought transfer. When in trouble, merely press the joystick 
button and you will transport yourself to a safe location. 
Doing this, however, will cost 50 points. 

You have only one minute to munch as many tasty ob- 
jects as you can before advancing to the next screen. When the 
minute is up, you'll be greeted by a song and a friendly mes- 
sage. You'll start out with three termites; when one is killed, a 
series of beeps will tell you how many you have left. 

Here's the scoring: magical goblets, 300 points, eggs, 100 
points, and knots, 10 points. At the end of the game the final 
score will be given. 

"Termite" becomes more difficult as the game progresses. 

Termite, the Program 

Termite was programmed in graphics 1, using a redefined 
character set. A redefined character is simply your own cus- 
tomized character. You can change letters and numbers into 
spaceships or creatures by rearranging the 8X8 grid of the 
character you wish to change, then POKEing into screen mem- 
ory to display that character: 
SCR = PEEK(88) + 256*PEEK(89) 

For a more detailed explanation of this technique, look at 
pages 108-126 of COMPUTEI's First Book of Atari Graphics. 

Program explanation: mm __ 

Lines Description 

4-14 Set up screen display 

19-75 Main loop moves termite and spider; uses LOCATE 

statement to return ATASCII codes to detect collisions 
299-316 Termite killed; make explosion, decrement number of 

termites, reset termite and spider positions 
1000-1200 Set up redefined character set 
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Lines Description 

3000-3008 Title page waits till START is pressed to begin 
5000-6000 Game over; print score 

7000-7210 When minute is up, play music and print message 
10000-10010 Thought transfer: erase previous termite and re- 
position termite in random spot 

Using LOCATE for Collision Detection 

The LOCATE statement works differently on graphics modes 
0-2 than on modes 3-8. In graphics modes 0-2, the ATASCII 
code of the character that occupies that space is returned. In 
modes 3-8, the color of a character is returned. Look at this 
example: 

LOCATE x,y,what 

where x and y are the variables of your player's column and 
row; what is the variable in which either the color or the 
ATASCII code will be stored, depending on the graphics mode 
you're working in. If what equals something other than your 
character, a collision has been made. Use IF-THEN statements 
to accomplish this. 

The Spider Knows 

The termite and the spider both have column and row co- 
ordinates. The horizontal coordinate is followed by the verti- 
cal. For the termite, they are X and Y; for the spider, they are 
SI and S2. Lines 64-67 of the program use IF-THEN state- 
ments to compare the positions of the spider and the termite. 
If the spider's horizontal coordinates are more than the ter- 
mite's, the horizontal coordinate of the spider must be sub- 
tracted. This works the same way on the vertical axis; 
therefore, the spider's position is updated by your location on 
the screen. 

Termite 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

BD 2 REM EB5SED MKSi EE1 MESS 

H6 3 GOSUB 3000 

CJ 4 GRAPHICS 1 + 16: SETCOLOR , 8 , 1 : SETCOLOR 2, 

RND(0)*14,9: TERM=3: SC=0: SL=1:SM=30:KNS=60 

: EG=10: G0B=12 
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KF 5 GRAPHICS 1 + 1 6 : SETCOLOR , 8 , 1 : SETCOLOR 2, 
RND(0) *14,9:TERM=3:SC=0: SL=1:SM = 30:KNS = 60 
: EB=10: G0B=12:G0SUB 1000 
POKE 756,CH/256 
SCR=PEEK(88)+256*PEEK(89) 
FOR G = 2 TO 22:P0SITI0N 0,G:? *"- ; ""nil""! 1 " 

rTTTTTTI "" "■■"" 

SOUND 0, G, 10, 10: SOUND 0,0,0,0:NEXT G 

FOR KNOTS=l TO KNS : K 1 = I NT ( RND ( ) * 1 9 ) : K2 = 

INT (RND (0) *17) +3:P0SITI0N K1,K2:? #6;"^" 

: SOUND 0,50, 10, 10 
OJ 12 FOR HJ = 1 TO 2:NEXT HJ:SOUND 0,0,0,0:NEXT 

KNOTS 
AH 13 FOR EGGS=1 TO EG : E 1 = I NT ( RND ( ) * 1 9 ) : E2= I N 

T (RND (0) *17) +3: POSITION E1,E2:? #6;"t":S 

OUND 0, 200, 10, 10 
AH 14 FOR HJ = 1 TO 25:NEXT HJ:SOUND 0,0,0,0:NEX 

T EGGS 
JC 15 FOR C=l TO GOB:POSITION RND ( ) * 1 8 , RND ( ) 

*17+3:? #6; "a": SOUND , C , 1 , 1 : SOUND 0,0 

,0,0:NEXT C 
DB 16 X = 9:Y=10:S1 = 19:S2=15:V=10:TIME = 
J6 17 POKE SCR + X+20*Y, 10: FOR G=l TO 80:SOUND 

,G,0,10:NEXT G:SOUND 0,0,0,0 
FK19 REM EEGEHSEEH 
E6 20 SCR = PEEK (88) +256*PEEK (89) 
HD 25 TP = SCR + X + 20*Y 
ID 26 ST = STICK (0) : TR = STRIG (0) : SETCOLOR 3,PEEK( 

53770) , 14 
NC 30 POKE WS, 58:P0SITI0N 3,0:? #6;"H";SC;" 

:POSITION 16,0:? #6;"*";TERM 
BH 35 SOUND 1 , , , : T I ME = T I ME+ 1 
CH 36 IF TIMEM70 THEN GOTO 7000 
FJ 37 FOR W=l TO 10:NEXT W:POKE WS,0 
FI 38 IF ST=14 THEN POKE TP , : Y = Y- 1 : V= 1 2 
EN 40 IF ST=13 THEN POKE TP , : Y = Y+ 1 : V= 1 
CA 42 IF ST = 7 THEN POKE TP , : X = X + 1 : V= 1 1 
KJ 43 IF TR = THEN GOSUB 10000 
FC 44 IF ST=11 THEN POKE TP , : X = X- 1 : V= 1 4 
OK 47 LOCATE X,Y,BC:IF BC = 247 THEN FOR W=15 TO 
STEP -2:S0UND , 50 , 1 , W : NEX T W:SC=SC+ 

10 
EB 48 IF BC=116 THEN POSITION X,Y:? #6;"3";:F0 

R R = 40 TO 1 STEP -l:SOUND , R , 2 , 1 4 : NEXT 

R: SC=SC+100 
AI 49 IF BC = 97 THEN POSITION X,Y:? #6;"E":F0R 

W=30 TO STEP -l:SOUND , W , 1 , 1 : NEXT W 

: SC=SC+300 
JB 50 POKE SCR + X + 20*Y,V 
K051 IF X>18 THEN POKE SCR+ X + 20* Y , : X = X - 1 
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HD 52 IF X<1 THEN POKE SCR+ X+20* Y , : X=X+ 1 

HI 53 IF Y<2 THEN POKE SCR+ X+20* Y , : Y=Y+ 1 

KP 54 IF Y>22 THEN PDKE SCR + X +20 * Y , : Y = Y- 1 

CA 60 WS=SCR+S1+20*S2 

DP 61 IF X=S1 AND Y = S2 THEN GOSUB 300 

LL 62 POKE WS,185:FOR S=l TO 10:NEXT S:SOUND 

,0,0,0:IF L=35 THEN SL=2 
F! 63 POKE WS, 0: L=INT (RND (0) *70) : IF L<SM THEN 

60T0 75 
FD 64 IF S1>X THEN S1=S1-SL 
FA 65 IF SKX THEN S1=S1+SL 
FJ 66 IF S2>Y THEN 52=S2-SL 
FS 67 IF S2<Y THEN S2 = S2 + SL 
BP 69 SOUND 0, 90, 0, 10: SOUND 0,89,0,10 
HE 70 SL=1 
AH 75 SOTO 20 

HH 299 REM Hg3gjJiaiC10BlS 
CJ 300 FOR G=14 TO 1 STEP -l:FOR W=i TO 25:NEX 

T W:SETCOLOR 0,12,G:SOUND , G , 1 , 1 : SOU 

ND 1 , G, 10, 10: NEXT G 
FO301 SETCOLOR , 1 2 , 1 4 : SOUND , , , : SOUND 1, 

0,0,0 
PI 302 FOR EX = 4 TO 6:P0KE SCR + X + 20* Y , EX : FOR W = 

1 TO 70:NEXT W:SOUND , 1 00 , , 1 : NEXT EX 

:POKE SCR+X+20*Y, 0: X=9: Y=10 
AI 303 FOR S = TO 2:S0UND S,0,0,0:NEXT S 
DN 304 TERM=TERM-1 : IF TERM = THEN GOTO 5000 
KP 306 FOR L = TO 95 STEP 5.9:S0UND 0,L,0,10:S 

OUND 1 , L, 0, 5: SOUND 2 , L , B , 3 : SETCOLOR 4,R 

ND (0) *14, 14: NEXT L:SETCOLOR 4,0,0 
AD310 FOR R = TO 2:S0UND R,0,0,0:NEXT R 
CC315 S1 = 15:S2=15 
HI 316 FOR FM=1 TO TERM:SOUND , 50 , 1 , 1 : FOR L 

=1 TO 50:NEXT L:SOUND 0,0,0,0:FOR L=l T 

O 50:NEXT L:NEXT FM:RETURN 
EJ 1000 REM BBBEBO 
EL 1010 CH= (PEEK ( 106) -B) *256: FOR 1=0 TO 7:P0KE 

CH+I,0:NEXT I 
06 1015 FOR 1=0 TO 512:P0KE CH+ I , PEEK ( 57344+ I ) 

:NEXT I 
U 1020 RESTORE 1100 

K6 1030 READ A: IF A<0 THEN RETURN 
DN 1040 FOR J = TO 7:READ B:POKE CH + A*8 + J , B : NE 

XT J 
H0 1050 GOTO 1030 

DN 1099 REM ESgEiaM|3 15MSIGI3II 3IlS l 
LD1100 DATA 10,56. 124, 254, 254,84, 56, B4, 146 
DK 1110 DATA 11,124,126,251,255,126,124,84,146 
LL1115 DATA 12,56,84,254,254,124,56,84,146 
NN1117 DATA 14,124,126,223,255,127,52,42,73 
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6P1120 DATA 4,0,0,4,0,16,8,64,0 

EL1125 DATA 5,1,66,0,34,8,64,20,128 

GL1130 DATA 6,0,0,4,80,8,20,0,0 

HC1135 DATA 58,68,130,84,56,124,186,68,130 

EO1140 DATA 2,255,253,239,247,255,191,251,255 

HB1143 DATA 58,68,130,84,56,124,186,68,130 

CE1145 DATA 57,0,40,84,186,124,56,68,40 

IL1146 DATA 55,24,36,90,165,165,153,66,60 

LH1148 DATA 52,0,56,124,254,239,218,124,56 

PE1149 DATA 51,7,5,7,56,40,184,128,128 

JL1150 DATA 33,65, 65, 99, 62, 2B, 8, 8, 28 

CH1155 DATA 34,7,5,7,248,104,248,64,192 

OL 1200 DATA -1 

HB 3000 BRAPHICS 2+16: PDKE 708,14 

013001 ? #6:? #6;"C6 SPACES! TERM I TE ! 

CA 3002 ? #6:? #6;"C18 SPACES} " : ? #6:SETC0L0R 4 

,8,7 

HF 3006 ? #6:? #6; "PRESS start TO BEBIN" 

OJ 3007 IF PEEK (53279) =6 THEN GOTO 5 

PH 3008 POKE 709, RND (0) *14: BOTO 3007 

BJ 5000 FOR E=14 TO STEP -l:SETCOLOR 2,4,E:F 

OR R=l TO 25:NEXT R:SOUND 0,E,0,10:NEX 

T E 

PE5010 GRAPHICS 2+16:? #6:? #6;"<6 SPACES>|TE^! 

caEgms " 

H6 5050 FOR L = 20 TO 70:SOUND , L , 1 , 1 : SOUND 1 

,L, 10, 10: NEXT L 
LF 5060 ? #6:? #6;"<3 SPACESlyour score is: " 
KB5061 SOUND , , , : SOUND 1,0,0,0 
FA 5062 ? #6:P0SITION 8,5:? #6;SC 
ON5065 FOR W=l TO 50:NEXT W:POSITION 8,5:? #6 

; "<12 SPACES} " 
FA 5070 FOR W=l TO 50: NEXT W 
KG 5075 ? #6:? #6;" PRESS start TO PLAY":? #6; 

OR select TO QUIT" 
BN 5080 IF PEEK (53279) =6 THEN BRAPHICS 1 + 16:TE 

RM=3:B0T0 6 
FJ 5085 IF PEEK (53279) =5 THEN END 
m 6000 GOTO 5062 
KH 7000 REM ESgaiS 
JE7001 SOUND 0, 255, 10, 10: SOUND 1 , 254 , 1 , 1 : FO 

R L=l TO 100:SETCOLOR 2 , RND ( ) *50 , 1 4 : N 

EXT L 
LF 7002 RESTORE 7100 
HC 7005 READ MUSIC:POKE 7 1 2 , MUS I C : POKE 710, PEE 

K(53770) 
01 7006 IF MUSIC = 255 THEN BOTO 7120 
EI 7010 SOUND 0, MUSIC, 10, 10 
EC 7020 SOUND 1 , MUS I C- 1 , 1 , 1 : FOR B=l TO 10:NE 



~ 



XT B 
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NB 7050 


PN 7100 


6D 7 1 1 


CH 7120 


AN 7125 


KL 7126 


FJ 7128 


LP 7130 


BN 7 1 3 1 


F6 7132 


HC 7200 


KA 7205 


IF 7207 


LD 7210 


HA 9999 


FH 10000 


FA 10005 


NC 10010 



GOTO 7005 

DATA 121, 96, 96, 121, 91, 91, 81, 81, 81, 91,1 
08, 121 , 144, 128, 144, 121 , 108, 12 1 , 72, 64, 7 
2, 91, 81, 53, 47, 45, 53, 33, 35, 40 

DATA 45,47,53,60,60,255 

GRAPHICS 2+16:? #6:7 #6:? #6:? #6 

JJ=INT(RND(1)*6>+1: SOUND , , , : SOUND 

1,0,0,0 
IF JJ=1 THEN ? #6; 
OWER ! ": BOTO 7200 
IF JJ=2 THEN ? #6; 
! ":GOTO 7200 
IF JJ=3 THEN ? #6; 

! " : GOTO 7200 
IF JJ=4 THEN ? #6; 
! <8 SPACES> " : GOTO 
IF JJ=5 THEN ? #6; 

":GOTO 7200 
FOR W=l TO 50:SETCOLOR 
EEK (53770) : NEXT W 
IF KNS<20 THEN KNS=10 
EG=EG+5 

KNS=KNS-5: SM=SM- 10: GRAPHICS 1+16: POKE 
756, CH/256: SETCOLOR 2,RND(1)*14,9: SETC 
OLOR 0, 8, 10: G0B=G0B+2: GOTO 7 

rem HingiaiiMEEgnaais 

FOR R = -20 TO 20:SOUND , ABS ( R ) , 6 , 1 : P 
OKE 712, ABS (R) : NEXT R:POKE TP,0:X = INT 
<RND<0)*20) :Y=INT(RND(0)*20) 
SC=SC-50: POKE 712,0 
RETURN 



£3 SPACES>TERMITE P 

CLAW LICK' IN GOOD ! 

C5 SPACES>SUPERMITE 

C5 SPACESJGO FOR IT 
7200 

TOTALY AWESOME! ! ! ! 

0, PEEK (53770) , P 
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* Strategy Games 



1 



Teaching Concepts 



Vilson J. Leffa 



Learning should be an enjoyable, nonthreatening experience. 
That's the idea behind this game for children and adults. 

"Teaching Concepts" was designed to teach and entertain. 
It can teach language-related skills, from spelling to concept 
formation, both to young readers and to students who are 
learning English as a second language. And it can also enter- 
tain. The student-players are challenged to use their wits to 
get to the secret word. Graphics and sound, although econom- 
ical of space, combine with text to add to the learning — and 
entertaining — environment. 

One, Two, or Three Players 

The program, by allowing up to three players working on dif- 
ferent options at the same time, is a cross between group work 
and individualized instruction. Esthetically, the screen may 
look crowded sometimes, but the advantage is obvious: All the 
needed information is always displayed. A quick glance can 
also tell the teacher or parent how much work has been done 
and how well each player is doing. 

The program listed here is ready to run, but should be re- 
garded as a demonstration only. This is, in a way, a utility 
program which can be used to meet specific needs. Expansion 
and adaptations can be easily done by entering the language 
items in the DATA lines (see section on expansion). 

Running the Program 

From the player's point of view, the program should be self- 
explanatory, although young children doing it for the first time 
may need some guidance. 

It starts by asking the number of players, their names, 
and their individual options from the menu. Then it displays 
the names and, if no changes are required, a horizontal arrow 
points to the current player. 

If the current player, using the hints displayed on the 
screen, is unable to guess the word the computer is "thinking 
of," help can be requested by pressing the ESC key. Help may 
be free or cost some points, depending on certain conditions, 
such as the player's standing in relation to the others. If help 
is accepted, the player, using the cursor keys, moves the 
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vertical arrow below the fence to the desired position and 
presses RETURN. When the current player is through, the 
horizontal arrow moves to the next player, and a new problem 
is displayed. The menu can be individually accessed at any 
moment through the asterisk (*) key, placed on the other side 
of the keyboard to avoid confusion with the help key. 

Except for the RESET key, all the others that are not 
needed to input relevant information have been disabled, 
including the BREAK key. Mistakes can be erased by pressing 
DELETE. Characters entered by the user are printed on re- 
served spaces only and are automatically deleted whenever 
the spaces are filled. 

Looking Inside 

The program, with the DATA lines listed here, takes up 5220 
bytes. REM statements have been omitted and are replaced by 
the following comments: 

Lines 100-210 set up the routine for each game session. 

Line 220 starts the main loop (CP = Current Player, 
NP = Number of Players). 

In line 230 a definition is randomly chosen and read 
within the parameters of the option made by the current 
player. 

Line 240 increases the RESTORE pointer by 1000, reads 
the number of words (NW), and randomly selects one (notice 
the flexibility allowed by the RESTORE X command). 

The core of the program is in lines 320-480. Input entered 
by the user is analyzed and processed character by character. 
This slows down processing when the player is entering cor- 
rect information, but should be no problem considering the 
potential users. It appeared to be more effective to reward the 
player after each correct character is entered than only after 
the word is finished. 

Line 490 is a subroutine that deletes the input line en- 
tered by the user and moves the arrow in the help mode. 

Line 500 clears the array containing the word typed by 
the current player. 

Lines 510-540 graphically display the area on the screen 
where input from the user is printed. 

Line 550 is the GET subroutine, preceded by the POKEs 
that disable the BREAK key. 

Lines 560-630 guide the players through the game, 
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instructing them on how to use help (560), printing the num- 
ber of problems solved (570), pointing to the current player 
(580), and updating the score (620-630). 

The names are printed in line 600. This is done through a 
two-dimensional array using the ASC codes from the GET 
loop. The technique slows down printing a bit, but, again, lack 
of speed is no problem here. 

Lines 640-820 contain the help routine. First, it is decided 
whether or not help is to be free and, if not, how much should 
be charged (650-710). Then the player is guided on how to 
obtain it (720-820). 

Lines 830-920 display the menu and define the sub- 
scripted variables FROM(CP) and ADD(CP) according to the 
options entered by the current player (CP). 

The data is stored in two separate groups: definitions in 
the 1000's and the words defined in the 2000's, with space in- 
between to expand the program. 

Expanding the Program 

This program is meant to be changed, expanded, and refined. 
Expansion can easily be done, but some basic rules have to be 
followed if the present structure is kept. 

First, select a supercategory such as the three used here 
(animals, the human body, and the house). Break the super- 
category into categories (notice that the examples used in this 
program could be broken up into many more categories). Then 
assign a group of words to each category; the only limitation 
here is that the words have to fit in one DATA line (if another 
line is needed, the category has to be repeated). 

Enter each supercategory in the menu and add the appro- 
priate IF-THEN conditions defining the variables FROM(CP) 
and ADD(CP). FROM(CP) refers to the DATA line where the 
reading of definitions (DE) should begin if the supercategory is 
chosen by the current player, and ADD(CP) to the definition 
DATA lines that should be added to complete the super- 
category. Also increase the C in line 870 to allow input of a 
higher code. 

Define the categories in one or two phrases, up to 19 
characters each including spaces. If only one phrase is needed, 
use a comma (see examples). Enter the definitions in consec- 
utive lines in the 1000's. 
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Finally, enter the words exactly 1000 lines above the 
corresponding definitions, preceded by the number of words 
in the line. 

Teaching Concepts 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

AL 100 DIM Dl* (20) , D2* (20) , WO* (20) , LE (20) , PL (3 
,6) ,SC(3) , FROM (3) , ADD (3) : OPEN #1, 4,0, "K 

■ ■■ 

II 110 FOR B=l TO 3:F0R D = l TO 6 : PL ( B , D ) =0 : NEX 

T D: BC(B)=0:NEXT BrGOSUB 500 
AF120 GRAPHICS ISsPOSITION 1,3:? #6; "HOW MANY 
PLAYERSC6 SPACES>(UP TO THREE )": L= 1 : HL 

M=B:GOSUB 510 
JP 130 GOSUB 550: NP = C-4G: IF C<49 OR C>51 THEN 

130 
JJ 140 FOR CP=1 TO NP:GRAPHICS 1B:P0SITI0N 3,2 

:? #6; » gr3gaG0EEHS ";CP:? #6;" Hm*J3BE 

■BaODlJagH " : L=6: HLM=6: GOSUB 510 
FB 150 POSITION 7,7:F0R D=l TO 6:G0SUB 550:IF 

C=155 THEN 1B0 
JE 160 IF C=126 THEN GOSUB 490:GDTO 150 
KC 170 ? #6; CHR* (C) ; :PL(CP,D) =C: NEXT D 
EH 180 GOSUB B30:NEXT CP:GRAPHICS 1B:CP=1:G0SU 

B 590 
U 190 POSITION 7,4: ? tt ' - "ITTi»Ti1'n SPACESXHTTn 

r^^M B Bg BBIEgagB" : ? #6;" £3 SPACES >QYO]^BE 

SKIMFE" 
IK 200 GOSUB 550: IF C = B9 THEN RUN 
AP210 IF C<>7B THEN 200 
EK220 LAP = LAP+1 : FOR CP=1 TO NP 
LC 230 DE=INT (RND(0) *ADD (CP) ) +FROM (CP) : RESTORE 

DE:READ D1*,D2$ 
DC 240 RESTORE DE+1000:READ NW : WORD= I NT ( RND ( ) 

*NW)+l:FOR A=l TO WORD:READ WO*:NEXT A 
PH 250 L = LEN(WO«) :HL=(20-L)/2:HLM = HL-1 
10 260 GRAPHICS 1B:P0SITI0N 0,0:? #6;"i have a 

secret word" 
DP 270 POSITION (20-LEN(Dl*> ) /2, 2: ? #6;D1*:P0S 

ITION (20-LEN(D2») ) /2, 3 
NC 280 ? #6;D2*:? #6;"<:5 SPACES> ( " ; L ; " LETTERS 

) " 
LB 290 BOSUB 510 
KO 300 BOSUB 560 
FH310 CT = 0:FOR A=l TO L 
KP 320 BOSUB 550 

FN 330 IF C = 42 THEN BOSUB 830:SOTO 230 
NI 340 IF C = 27 THEN 640 
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JD 350 
SB 360 
FE 370 



HP 3S0 
CN 390 
ND 400 
FH 410 
LH 420 

BH 430 
LF 440 
NE 450 
6H 460 
LH 470 
SJ 480 
BB 490 
HO 500 
PJ 510 
OH 520 

BL 530 
DO 540 
H6 550 

FE 560 



OE 570 


HH 580 


HB 590 


JC 600 


HH 610 


CD 620 


JN 630 


NK 640 


AC 650 



IA 660 

HO 670 

DP 680 
DI 690 
EB 700 

HA 710 
FD 720 



#6; CHR* (C) 



IF C=126 THEN GOSUB 490:GDTO 310 

IF C<65 OR O90 THEN 320 

IF COflSC (WO* (A, A) ) THEN SC ( CP > =SC ( CP > - 

0.5:GOSUB 620:POSITION HLM+A,7:? #6;CHR 

* (C) : GOTO 430 

IF LE(A)=1 THEN 410 

LE (A) =1 :POSITION HLM+A.6:? 

SC (CP) =SC (CP) +1 :GOSUB 620 

POSITION HLM+A,7:? #6;CHR*(C) 

FOR Z=5 TO 20:SOUND 

UND 0, 0,0, 0:CT=CT+1 

NEXT A 

GOSUB 490 

IF CT=L OR CT>L THEN 

GOTO 310 

GOSUB 500:NEXT CP 

GOTO 220 

POSITION 1 

FOR A=l TO 

FOR A=l TO 

IF LE(A)=1 

0* (A, A) :GOTO 540 

POSITION HLM+A,6:? #6 

NEXT AsRETURN 

POKE 16,64:P0KE 53774 

N 

POSITION 11 

1 1, 10: ? #6; 

POSITION 11 

POSITION 6,CP+8:? 

FOR B=l TO 

POSITION 



0, Z, 10, 10: NEXT Z: SO 



470 



7:? #6; "{18 SPACES >": RETURN 
20: LE(A) =0: NEXT A:RETURN 
IMPOSITION HLM + A,8:? #6;"- ,, 
THEN POSITION HLM+A.6:? #6;W 



64: GET 



#1 , C: 



RETUR 



9: ? #6 

□E3 
11 :? #6 



• i--zm:\iw± "z position 



mm 



; LAP 



#6; INT 



; "EETEE" 
#6; "H" 
NP 
0,B+8:FOR D=l TO 6:? 
L (B, D) ) ; : NEXT D:POSITION 7,B + 8:? 
(SC (B) ) : NEXT B 
RETURN 

IF SC(CP)<0 THEN SC(CP)=0 

POSITION 7,CP+8:? #6;"<4 SPACES >": POS I T 
ION 7,CP+8:? #6; INT (SC (CP) ): RETURN 
IF SC(CP)<3 THEN 720 

ME=(SC(1)+SC(2)+SC(3) )/NP: IF SC CCPXME 
THEN 720 

MI = INT (SC (CP) /3) : IF MI>L/1.5 THEN MI = IN 
T (L/l. 5) 

GRAPHICS 18:? #6;" EaB5EM!BiaB5gM glE 
":? #6;"C6 SPACES} " ; M I ; " ESBSISBB " 
? #6:? #6;"C4 SPACES >nY F Mg i ] : «3 N FITS" 



GOSUB 550: IF 
IF C=89 THEN 
GOTO 690 
GRAPHICS 18 



C=78 THEN 260 
SC(CP)=SC(CP)-MI:GOTO 



720 
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EP 730 ? #6;" MOVE ARROW TO THE":? #6: 

C3 SPACES>LETTER YDU WANT" 
FO 740 ? #6;" THEN PRESS return 
FO 750 GOSUB 570:POSITION HL,7 
EN 760 ? #6; " ~ " : AR=1 
FA 770 GOSUB 550! IF C=42 AND 

:GOTO- 820 
OH 780 IF C = 43 AND AR>1 THEN 
BM790 IF C=155 AND LE(AR)=0 

260 
AJ 800 IF C=155 THEN 260 
HA 810 GOTO 770 
CI 820 GOSUB 490:POSITION HLM + AR,7:? #6: 

TO 770 

JP 830 



GOSUB 510 



AR<L THEN AR=AR+1 

AR=AR-1: GOTO 820 
THEN LE <AR> =1 : GOT 



GO 



LE 840 

CL 850 
FF 860 
UK 870 
LH 880 
LN 890 
LI 900 
LK 910 
HL 920 
6E 100 
ON 100 
100 
100 
100 
100 
100 
100 
100 
200 



HF 
LO 
01 
DN 
CN 
N6 
JH 
PK 



LP 200 
BO 200 
BH 200 
IH 200 
EK 200 

DJ 200 
JK 200 

HH 200 

JK 201 



GRA 
? # 
1 :? 

? # 
HE" 
? # 
POS 
GOS 
IF 
IF 
IF 
IF 
RET 
DA 
DA 
DA 
DA 
DA 
DA 
DA 

8 DA 

9 DA 
DA 
E 

DA 
DA 
DA 
DA 
DA 
E 

7 DA 

8 DA 
SH 

9 DA 
KE 

EN 



PH 

6; 

# 

6; 

. 7 

6; 

IT 
UB 
C = 
C = 
C = 
C = 
UR 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TA 
TA 



ICS 17:? #6; 
CHR* (PL (CP, D 
6; "MiMi'i-HB: 



1 BESHSEH E " 

#6; " 



" HI , " ; : FOR D=l TO 6: 

));:NEXT D:POSITION 5, 

3^B" 

:? #6;" [?SSia3KirrETn 

MS" 



ION 

550 
65 T 



66 
67 
68 
N 
IT 



9, IB:? # 
: IF C<65 
HEN FROM 
HEN FROM 
HEN FROM 
HEN FROM 

IS A, WIL 




6 ; " # " 

OR C>68 THEN 870 
(CP) =1001 : ADD (CP) =3 
(CP) =1004: ADD (CP) =4 
(CP)=100B:ADD(CP)=2 
(CP)=1001:ADD(CP)=9 

D ANIMAL 

rd 

, IN YOUR FACE 

r -lrllftY- , "|- »g^'' 
■f your senses 

IT, IN THE KITCHEN 



YOU CAN SEE 

SOKMt ES3KHX 

5, ELEPHANT, BEAR, TIGER, LION, GIRAFF 



jmEGEni! 



TA 6, CAT, DOG, COW, HORSE, PIG, OX 

TA 5, HAWK, PARROT, SPARROW, CROW, PIGEON 

TA 4, NOSE, MOUTH, EYE, CHEEK, CHIN 

TA 6, ANKLE, HEEL, SHIN, CALF, KNEE, THIGH 

TA 5, TOUCH, SMELL, HEARING, VISION, TAST 

TA 4, KNUCKLE, PALM, THUMB, FINGER 

TA 6, STOVE, REFRIGERATOR, SINK, OVEN, DI 

WASHER, BLENDER 

TA 6, BED, CLOSET, MATTRESS, PILLOW, BL AN 

T, SHEET 

D 
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Learn how refraction affects light, shoot aliens, improve your 
programming skills, and have fun at the same time. Joystick 
required. 

You are in position on the surface of a quiet lagoon. In the 
deep, still water below you, a friendly submarine awaits your 
directions before firing a laser beam at an alien in the air 
above. You have two responsibilities: You must tell the sub 
when to fire, and you must give the sub a target on the water 
surface. The laser beam will pass through your target and con- 
tinue on — if you have estimated correctly — to hit the alien. 

The only hitch is that when a light beam passes through a 
water-air surface, it bends. Because of this bending (called 
refraction), you cannot simply place the target directly between 
the sub and the alien. You must estimate the amount of refrac- 
tion which will occur. Refraction is a phenomenon of nature, 
however, and occurs with a pattern. Unless you have studied 
physics, the pattern may seem odd at first, but you will soon 
get the feel of it, and you will be zapping one alien after 
another. 

Learning the Angles 

A side effect of playing the game will be that you'll get the 
"feel" of how light actually bends when passing through a 
surface. The angles involved are calculated correctly in the 
program, and you will even see the light being totally re- 
flected back into the water when you cause the sub's shot to 
hit the surface at too glancing an angle. 

A clock at the upper right of the screen starts with your 
first shot and shows your remaining time. Your score is shown 
at the upper left and, after the first game, the highest score 
achieved so far is displayed at center. 

The game requires at least 16K and one joystick. It makes 
use of a number of Atari features, including player/missile 
graphics (three players and one missile), a modified display 
list, and a display list interrupt. 

The Program 

Let's look at the program in the order in which it executes. 
This takes us first to the initialization of values at line 6105. 
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The variable named INDEX is the index of refraction of water. 
It determines how much the light beam will bend at the sur- 
face. After playing the game using this correct index, you 
might experiment with changing it. Making the index equal to 
1 will result in no bending, because 1 is also the index of 
refraction of air. Diamond has an index of 2.4. Try that for a 
different game (although I don't know what a submarine 
would be doing inside a diamond). LIMIT is the time limit of 
the game in seconds. 

The double GRAPHICS command in line 6110 is not a 
mistake; it is simply a very fast way to clear memory for P/M 
graphics. Later, we will use the 4K of memory starting 8K be- 
low RAMTOP for our player/missile area, and a GRAPHICS 8 
command clears the top 8K of memory. 

Display List Interrupt 

(In the next few paragraphs are some suggestions for places to 
experiment and change the program. Be sure to save a copy of 
the program before you begin to experiment.) 

Lines 6120-6150 cause a display list interrupt. This sim- 
ply means that between the sixth and seventh display line on 
the GRAPHICS 2 screen, the Atari performs the short machine 
language routine using the DATA in line 6150. The purpose of 
this interrupt is to change some colors in the bottom half of 
the screen. The colors in the SETCOLOR registers 2 and 4 are 
changed to green. I recommend that you play with this even if 
you don't understand machine language. Change the 10 in 
line 6120 to change the position on the screen where the 
interrupt occurs. (We'll use this same interrupt later with the 
GRAPHICS 7 screen. In that case we will POKE a 141 into the 
display list about halfway down that screen.) To experiment 
further, change the 196 on the DATA line in order to cause a 
different color to appear at the bottom of the screen. The 24 
causes the color to be POKEd into color register 2, and the 26 
changes register 4. Change either of these numbers to 22 or 23 
to change the colors in registers or 1. 

Line 6310 turns off Antic with the POKE to 559 and then 
establishes a GRAPHICS 1 line by POKEing 70 in the LMS 
command of the display list. The 12 is POKEd into the next 
display line in order to make a total of 40 bytes of screen 
memory for the two lines. Then, as promised, the display list 
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interrupt is set with a POKE to (DL + 46), which will be the 
forty-second display line on the screen. 

The Game Logic 

The main loop consists of lines 200-290. One unusual aspect 
here is the use of PTRIG to read joystick positions in lines 210 
and 250. It's a happy coincidence that (PTRIG(O) - PTRIG(l)) 
equals — 1, 0, and +1 for joystick positions of left, center, and 
right respectively. If you use this method to read your joystick, 
even the diagonal positions are accepted for horizontal mo- 
tion. (COMPUTEI's Mapping the Atari, by Ian Chadwick, con- 
tains this and other neat tricks.) 

Notice that before printing the time at lines 231 and 234 
(and in the subroutine at 100), we must fool the Atari into 
thinking that we are in GRAPHICS 2. We do this by POKEing 
a 2 into location 87. Then, after printing the time, we rePOKE 
location 87 to the original GRAPHICS 7. 

Mathematicians and physicists may want to check my 
calculation algorithm in lines 310-330, but most people will 
probably just take my word for it. The problem is that not 
only must the angle of refraction be calculated (from Snell's 
Law, physicists), but the destination for the DRAWTO must 
also be calculated, and it may either be at the top or the side 
of the screen. Hence, the messy math. 

Line 360 checks the collision register for a hit and, IF HIT, 
the old target is erased, a new target selected, the score up- 
dated, and the program returned to the main loop at line 200. 

Deep 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

SJ 90 GOTO 6100 

BK 100 A=INT ( (PEEK (20) +PEEK ( 19) *256) /60> : IF A> 

LIMIT THEN 900 
BL110 POKE 87, 1 : POSITION 16,0:PRINT #6;LIMIT- 

A;" ":POKE 87, 7: RETURN 
HG 200 REM 
PP210 FOR X1=ST TO FIN STEP M:POKE H3,X1:A=PT 

RIG ( 1 ) -PTRIG (0) : IF STRIG(0)=0 THEN GOSU 

B 300 
m 220 CON=CON+0. 5: IF NOT A THEN CON=l 
FB 225 SPOT = SPOT-A*CON: IF SPOTO0 THEN CON=l:S 

POT=200 
NJ 230 IF SPOT>200 THEN CON= 1 : SPOT = 50 
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G1231 POKE H2, SPOT: POKE 87,1: IF NOT STARTED 

THEN POSITION 16,0:PRINT #6 ; "gE" : POKE B 

7,7:G0T0 250 
HB 233 A=INT ( (PEEK (20) +PEEK ( 19) *256) /60) : IF A> 

LIMIT THEN 900 
IF 234 POSITION 16,0:? #6;LIMIT-A;" " : POKE 87, 

7 
HH 250 SPOT=SPOT+(PTRIG(0)-PTRIG(1))*CON:POKE 

H2, SPOT 
FL 270 IF MOVE THEN X = X + WAY:POKE H0,X:POKE HPM 

2,X:IF X=180 OR X = 60 THEN WA Y=WAY-2 * WA Y 
PF 280 IF NOT MOVE THEN POKE 707 , PEEK ( 53770 ) 
GJ 290 NEXT Xl:BOTO 210 
HH 300 REM 
KA 305 TRAP 500 : SURFX = SP0T-44 : SUBX = X-47 : POKE 5 

3278,0: IF NOT STARTED THEN POKE 20,0:P 

OKE 19, 0: STARTED=1 
PD310 SHOTS = SHOTS + l : POKE 706 , 52 : X D I S 1 =ABS ( SUB 

X-SURFX):SINAIR=INDEX*(XDIS1) /SDR (1600 + 

XDISltXDISl ) 
BN315 XDIS2 = 40*(SINAIR/SQR(1-SINAIR*SINAIR) ) : 

REM TERM IN () IS TAN OF THE ANGLE WHOS 

E SINE IS SINAIR — (THETAAIR) 
CK 320 TRAP 40000: T0PY = 2: TOPX = SURF X + XD I S2-2* (S 

UBX>SURFX) *XDIS2 
OF 330 IF T0PX>159 OR TOPX<0 THEN TOPY = 40*(TOP 

X-(T0PX>159)*159)/(T0PX-SURFX):T0PX=159 

- (TOPX<0) *159 
PG 333 POKE 706, 14 
PG 340 COLOR 2:PL0T SUBX , 79 : DRA WTO SURFX,40:DR 

AWTO TOPX, TOPY: FOR 1=100 TO 220 STEP 20 

:SOUND 0, I , 10, 15: NEXT I 
KG 350 SOUND , , , : COLOR 0:PLOT SUB X , 79 : DRAW 

TO SURFX, 40: DRAWTO TOPX, TOPY 
HO 357 POKE H0,X:POKE HPM2,X 
KI 360 HIT = PEEK (53255) : IF HIT THEN 600 
HM 390 RETURN 
HI 400 REM 
JH410 FOR 1 = 15 TO 1 STEP -l:SOUND 1,20*1,10,1 

:NEXT I:SOUND 1,0,0,0 

GO 440 SCORE = SCORE + 80-2*SHOTS+10*(SHOTS=l)+20* 

MOVE 
KJ 442 POKE 87, 1 :POSITION 2,0:PRINT #6;SC0RE 
HL 450 LIMIT = LIMIT+1 : GOSUB 100 
LC 460 SHOTS = 0: RETURN 
HJ 500 REM 
NA 520 B0TY = 79:B0TX = SURFX + XDIS1-2*XDIS1* (SUBX> 

SURFX): IF B0TXM59 THEN BOT Y=40+39* ( 1 59 

-SURFX) /(BOTX -SURFX) 
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LK 522 
NP 525 
IP 529 
ON 530 

KF 540 

MG 550 

HK 600 
MP 615 

OJ 620 
AP 630 

NC 635 

BH 640 
AJ 650 



NK 660 
CK 661 
NO 662 
GF 663 
HJ 664 
GK 690 
LP 900 
DP 910 



KA 920 
BC 925 

CB 926 

PJ 928 



IF BOTX<0 THEN BOTY=40+39*SURFX / ( SURFX- 
BOTX) 

BOTX=BOTX-BOTX*(BDTX<0)-(BDTX-159)*(BOT 
X>159):P0KE 706 , 1 4 : GOSUB 100 
SH0TS=SH0TS+2: TRAP 550:COLOR 2:PL0T SUB 
X,79:DRAWT0 SURFX , 4 1 : DRA WTO BOTX.BOTY 
SOUND 0, 150, 12, 12: SOUND 1,152,12,12:? : 

? :? "C5 SPACES> 1HIgMHZli E angMEMO Bai 

Kiilia" : FOR D=l TO 140 + 200* < NOT MOVE) 

NEXT D:COLOR 0:PLOT SUBX , 79 : DR AWTO SURF 

X,41:DRAWT0 BOTX,BOTY:? CHR*(125) 

GOSUB 100:SOUND , , , : SOUND 1,0,0,0:G 

OTO 270 

REM 

FOR I=MYPM+1792+Y1 TO M YPM+ 1 799+Y 1 : POKE 

I,0:NEXT I:IF HIT=2 THEN GOSUB 400 
Y1=60+28*RND (0) 

M=3*RND(0)-1.5:ST=195*(M<0)+50*(M>=0):F 
IN=245-ST:IF NOT MOVE THEN ST=46+150*R 
ND (0) :M=0 
IF ST<160 AND ST>B0 AND RND(0)>0.5 THEN 

ST=46+153*(RND<0>>0.5) 
POKE H3,ST 
RESTORE 660+RND (0) *4: FOR I =MYPM+ 1 792+ Y 1 



A:POKE I,A:NEXT I 



TO MYPM+1799+Y1 : READ 
:READ A:POKE 707, A 
DATA 24,60,0,255,255,0,60,24,202 

129, 153, 189,255, 189, 153, 129, 0, 234 
24, 102, 255, 153, 153, 255, 102, 24, 28 



DATA 

DATA 

DATA 0,28,8,73,127,73,8,28,46 

DATA 85,42,85,42,85,42,85,42,12 

GOTO 200 

SOUND 0,0,0,0:REM ■^i>>^t^ :T.1lh*d:M;J 

POK E 706,15:? " {DOWN} £ 1 4 SPACES > MggSTJBgM 

HUM" : IF SCORE>BEST THEN BEST = SCORE : BEST 

*=STR* (BEST) : GOTO 970 

SOUND -1 , 100, 10, 10: FOR TIME=1 TO 200:POK 

E 755,3:P0KE 755,2:NEXT TIME:SOUND 1,0, 

0, 

BEST*=STR* (BEST) :POKE 53279, 0:SCORE=0:S 

TARTED = 0:? " CCLEARXDOWN} <7 SPACES>PRES 

S aiBC FOR SAME GAME." 

IF MOVE=l THEN ? " <3 SPACES>PRESS HJIJj 

C FOR STILL TARGET GAME." : GOTO 930 

? " PRESS M^g^-k^ FOR MOVING TARGET GAME 



NF 930 POKE 87, 1 : POSITION 8,0: IF LEN(BEST*)<4 
THEN BEST* (LEN (BEST*) +1 ) =" " : GOTO 930 

NH 940 FOR 1 = 1 TO 4:PRINT #6 ; CHR* ( ASC ( BEST* ( I , 
I ) ) -32) ; : NEXT I 



167 



Chapter 5 



PH 950 I=PEEK (53279) : IF 1=7 THEN 950 

PP 955 IF 1=5 THEN MOVE=ABS ( MOVE- 1 ) : I F NOT MO 

VE THEN X=122:P0KE H0,X:POKE HPM2,X 
PA 960 POSITION 2,0:PRINT #6;"00 " : POKE 87,7: 
HIT=0:POKE 53279, 0:STARTED=0:LIMIT=60:7 
CHR* ( 125) : POKE 77,0:GOTO 600 
DH 970 RESTORE 990:HOLD = 3 
OB 975 READ A,B:IF A = 999 THEN SOUND 1,0,0,0:SO 

UND 0,0,0,0:POKE 755,2:G0T0 925 
BE 9B0 POKE 755,2:S0UND 1 , A , 1 , 1 2 : SOUND 0,A+1, 
10,6:FOR TIME=1 TO B*HOLD:NEXT TIME:POK 
E 755,3:G0T0 975 
DE 990 DATA 72,4,0,2,72,4,0,2,72,4,0,2,72,30,6 
4, 20, 0,5, 85, 10,81, 10, 72, 20, 0,5, 85, 10,81 
, 10, 72, 10 
0P991 DATA 0,10,85,10,81,10,72,10,0,10,64,20, 

57, 30,999 
BO 6100 REM »ld t milJm'>±*.lW:Vm + *r*i 
AF6105 INDEX=1 . 33: LIMIT = 60: DIM BEST* ( 4 ): POKE 

82,0:SPOT=100:WAY=0.5 
MI6110 GRAPHICS 8:GRAPHICS 2:SETC0L0R 4,9,4:D 

L=PEEK(560)+256*PEEK<56 1) 
CF6120 POKE DL+10, 135: RESTORE 6150:POKE 52761 
,8:F0R 1=0 TO 13:READ A:POKE 1536+1, A: 
NEXT I 
IL6130 POKE 512,0:POKE 513,6:P0KE 54286,192 
IE6150 DATA 72,169,196,141,10,212,141,24,208, 

141 , 26, 208, 104, 64 
6P 6200 REM MISMmEM33MEJinnEBK& EEMiES^£[33£ 
DH6250 C0L = 49:P0SITI0N 8,1:7 #6 ; " deep " : POS I T I 
ON 5,7:7 #6; "still target":? #6;" 
<5 SPACES>movi ng target" 
NB6251 POKE 752,1:7 :? " < 1 5 SPACES J CHOOSE ONE' 
FB6252 COL = ABS (COL-194) : COLOR COL:PLOT 3,7:A = 
ABS (COL-194) +1 : COLOR A:PLOT 3,S:F0R T= 
1 TO 50:NEXT T:SOUND 0, A, 10,2 
FD 6260 I=PEEK (764) : MOVE= ( 1=30) 
NB 6280 IF K30 OR I>31 THEN 6252 
GJ 6290 POKE 764,255 

KJ6310 GRAPHICS 7:P0KE 559 , : DL = PEEK ( 560 ) +256 
♦ PEEK (561 ): POKE DL + 3,70:POKE DL + 6,12 

OB 6320 POKE DL + 46,141 

EA 64 00 REM H =* MBB El :fc» :^nTTTT!rM 

BM 6405 SETCOLOR 4 , 8 , : SETCOLOR 1 , 7 , 1 : SETCOLO 
R 2,0,14: POKE 752, 1 

IA 6450 COLOR 2 

DM 6500 REM ggMiiai JEMS 332SEEBB 

OP 6503 X=122:P0KE 704,0:POKE 706,14 

JA 6505 A = PEEK ( 106) -32:P0KE 54279 , A : MYPM = 256 * A 
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PO6510 POKE 53277, 3: H0 = 5324B: POKE H0,X:H2 = 532 

50 :H3 = 5325 1 : HPM2 = 53 254: POKE HPM2 , X : POK 

E 53256, 1 
BJ 6530 RESTORE 6540:FOR I=MYPM+1220 TO MYPM + 1 

226:READ A:SOUND , A , 1 , 1 : POKE I,A:NE 

XT I 
IE 6535 POKE M YPM+ 1 656 , 23 1 : POKE M YPM+ 1 657 , 23 1 : 

POKE MYPM+966,48 
F66540 DATA 32,32,124,255,255,255,0 
EF 6590 POKE 559, 62: GOTO 620 
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Heroes 

Steven Leffler 



"Heroes" is an exciting adventure game that combines joystick 
movement and keyboard commands. Requires at least 16K RAM, a 
joystick, and more thought than is immediately apparent. 

You are a fearless explorer, traveling in search of adventure. 
You have come a long way and have now arrived at an inn in 
a strange land. As the innkeeper serves your dinner, he tells 
you some of the history of this place. 

"This country," claims the innkeeper, "which extends for 
many miles both to the north and east of the inn, was once 
used by a clan of wizards for their evil experiments. One day 
the wizards disappeared, leaving their castles to fall into ruin 
and the creatures which once guarded them to run wild. It is 
said that, to this day, the creatures the wizards created still 
roam the wilds of this region and the ruins of the castles that 
were once their homes. It is also said that, in their haste to de- 
part, the wizards left behind much treasure, and anyone who 
survives a trip into their demesnes will leave a rich man." 

Even before the innkeeper finishes his tale, you have de- 
cided to explore this strange country. You rise early the next 
morning, bid the innkeeper farewell, and depart into the 
unknown. 

The object of "Heroes" is to explore the entire area shown 
on the screen and get as much treasure as you can without 
getting killed. Your final score is based on the amount of trea- 
sure you have collected during your travels. 

You start out with 50 hit points. These show how healthy 
you are; when you have lost all of them in combat, you die. 
Fortunately, you can return to the inn to rest and regain hit 
points (with a small fee for use of the facilities, of course). 

As you explore, you will have to face many monsters. 
Each one guards a pile of treasure which you can take after 
you slay the beast. The treasure will consist of such things as 
gold, magical weapons and armor, as well as the very power- 
ful magical scrolls. The names of the scrolls are often cryptic, 
giving no clue to their purpose, so you will have to be careful 
when using them. 



170 



Chapter 5 



Playing Heroes 

Use a joystick in slot 1 to show your direction of movement 
and word commands to indicate anything else. Type HELP 
and press RETURN to get a list of the words you can use. 
Press RETURN to enter a command. TRIG means push the 
joystick trigger. 

TAKE Adds items to your treasure 

LIST Prints your treasure list 

SPELL Uses a scroll from the treasure 

TRIG Causes you to attack with your sword if there is a mon- 
ster present; is the same as LIST at all other times 

HELP Prints a brief summary of these commands 

QUIT Ends the game and displays your total points 

Different colors show different terrain: 

Brown Meadow 

Green Forest 

Gray Ruins 

Black Unexplored 

You start with 50 hit points (HP). These are a measure of 
your ability to take damage. Damage reduces your HP total; 
when it reaches 0, the game ends. If you get low, you may re- 
turn to the inn, and regain 1 HP per day at a cost of two gold 
pieces (GP) for food and accommodations. 

Finally, a playing tip — victory depends heavily on your 
ability to make effective use of the scrolls. 

Heroes 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

CA 9 GRAPHICS 2: POKE 752,1 

HN 10 SETCOLOR 2,0,0:? #6; " tCLEAR> a"JJtJ.^T^^J^« 

(33211^" : POSITION 0,2:? #6;" A GAME OF FA 

NTASY" 
IN 20 POSITION 0,4:? #6;" AND ADVENTURE IN A": 

POSITION 0,6:? #6; "{3 SPACES> MED I EVAL ER 

A":? " C2 TABX3 SPACESJby Steven Le-ffler 

■I 

D021 FOR T=l TO 2000:NEXT T 

IN 30 HP = 50: EX = 1 : DIM I • ( 1 ) , C* ( 6 ) , B« ( 1 2) , SC* ( 80 

) , MT* <24) 
JP 35 OPEN #1,4,0, "K: " 

hA 160 ? :? "PUSH ANY KEY TO START YOUR ADVENT 
URE":GET #1,T 
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LB 170 L1=0: L2 = 19: S = 0:W=1 : GRAPHICS 3:SETC0L0R 
0, 15, 2: SETCOLOR 1 , , 4 : SETCOLDR 2,12,0 



HG 175 
HD 180 
NB 190 
KI 195 
HN 200 
KH 205 

OC 210 
JE 220 

PH 225 
LH 240 

BA 242 

NB 245 

ND 24 6 
BL 247 

PH 248 



FF 249 
KL 250 

HA 260 
KD 270 
HE 280 
OC 290 
NF 300 
NN 310 
PH 320 
FL 330 



AH 335 

HL 340 

LF 350 

PI 360 

DD 370 

LG 380 

HC 385 

HJ 390 



THEN GOS 



1 THEN 
GOTO 180 
GOTO 1 



GOTO 



REM n:iim»sl=<i**<0: 

POKE 752,1:C0L0R W:PLOT L1,L2 
C = STICK (0) : IF C<>15 THEN 247 
IF EX>799 THEN 1060 

IF STRIG(0)=0 AND B1>0 THEN GOTO 1080 
IF STRIG<0)=0 AND BK1 THEN GOSUB 480:G 
OTO 180 

COLOR 0:PLOT L1.L2 

TRAP 220: C2=PEEK (764) : IF C2=12 
UB 540: GOTO 180 

IF C2=255 OR C2=60 THEN 180 
GET #1,C2:IF C2=126 AND LEN(C*> 
C*=C* ( 1 ,LEN (C*) -1) : ? CHR*(C2). 
IF C2=126 THEN C*="":? CHR*(C2) 
80 

C*<LEN(C*) +1 ) =CHR* (C2) :? CHR$ <C2) 
180 

rem BBffl liai : fc » c a ^ a =3 -3 * j a * mi 

C*=" ": 0L1=L1 : 0L2=L2: IF F=l THEN ? "THE 
";B*;" IS BLOCKING THE WAY !": GOTO 180 
IF B1>0 THEN ? "THE ";B*;" IS CHASING Y 
OU!":IF INT (RND (0) *4+l ) > (Bl/10) AND SS = 
THEN ? "IT'S TOO FAST ": F= 1 : GOTO 180 
IF B1>0 THEN ? "YOU OUTRAN IT!" 
SOUND 0,46, 0, 8: GOSUB 3000: IF C=14 THEN 
■N" : L2=L2-1 : GOTO 330 
C=6 THEN ? "NE" : L1=L1+1 : L2=L2-1 
C=7 THEN ? "E":L1=L1+1 
C=5 THEN ? "SE" : L1=L1+1 : L2=L2+1 
"S" : L2=L2+1 
SW":L1=L1-1:L2=L2+1 
"W": L1=L1-1 
"NW":L1=L1-1:L2=L2-1 



? ' 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



C=13 THEN ? 
C=9 THEN ? ' 
C=ll THEN ? 
C=10 THEN ? 



SOUND 0,0,0,0:IF LK0 OR L2<0 OR Ll>39 
OR L2>19 THEN ? "<:BELL>YOU CANNOT LEAVE 

THE SCREEN !": L1=0L1 : L2=0L2: GOTO 180 
FOR T20=l TO 20:NEXT T20:LOCATE L 1 , L2 , W 
: IF W< >0 THEN 440 
EX=EX+1 : W=INT <20*RND (0) ) +1 : IF W<17 THEN 

W = 3 
IF W=18 
IF W=20 

W = 2 
RESTORE 
90, 420 

IF INT ( 100JRND (0) ) =0 THEN 400 
GOTO 180 
IF INT (10*RND (0) ) < >0 THEN 180 



OR 
OR 



W=17 
W=19 



THEN 
THEN 



W=l 
W=l 



IF S+SH>2 THEN 



COLOR W:PLOT L1,L2:0N W GOTO 
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GC 395 
DL 400 

OF 410 



EP 415 
PN 420 

ME 430 



EC 435 
JP 440 
FO 450 



OD 455 
PC 460 
IK 470 

AL 480 
NC 490 



OJ 495 
NH 500 
IA 515 



OG 517 
PK 520 



SG 530 
DO 535 

HI 540 
KA 550 

LE 560 
FM 570 
HI 580 
EA 590 
HJ 592 



REM ISfc<:M:« 
FOR T=l TO 



■**ilzWZ<iTttT. 



READ B*,B1 



( INT (RND (0) *5+l ) ) 
, B2, B3, B4, B5: NEXT T 

? "OH, NO THERE'S A ";B*;" COMING!":? 
HAT ARE YOU GOING TO DO?":GOSUB 2500: 
TO 180 

rem crann 



:M:ahj^:«r: 



?ngT 



FOR T=l TO 30:READ 

( INT (RND (0) *6+l ) ) 
READ B3, B4, B5: NEXT 

" ;B*; " COMING ! ":? 
TO DO?":GOSUB 2500 
REM SME HM MinM aMin. 
IF L1>0 OR L2<19 THEN 
? "YOU ARE AT THE INN, 
£4 SPACEG>STAY AND REST 
500: B1=0 

GET #1,T:IF T=78 THEN 180 
T=50-HP: IF GP-2*T<0 THEN T=INT(GP/2) 
GP=GP-2*T: HP=HP+T: ? "HP: ";HP,"GP: " 
:GOTO 180 

REM lii:^:^lJ:3^I»fcSE L , :^<:t^:; 
C$="":? " £CLEAR>HP: ";HP,"GP: ";GP," 
";S;" SWORD",: IF SS=1 THEN ? "ELVEN 
PPERS", 
? "AND +" ;SH; 

anaoBims " 

FOR T20=l TO 



" W 
GO 



TO 



B*:NEXT T:FOR T=l 
READ B*,B1,B2 
T:? "OH, NO THERE'S A 
"WHAT ARE YOU GOING 
GOTO 180 

j '!*!=: 

180 
DO YOU WISH TO 
:B1=20:GOSUB 2 



GP 



A + 
SLI 



ARMOUR":? "HE 
S0:NEXT T20: IF STRIG(0)=1 



FOR T20 = 
THEN ? ' 



1 TO 20: 
i U P y " s RE 



? SC$(T*8- 
FOR T20=l 



6, T*B 

TO 20 



50:NEXT T20-.RE 



THEN 500 

? " <CLEAR> " : POKE 752,1: 

NEXT T20:IF LEN(SCt)=0 

TURN 

POKE 82,0:? "SCROLLS:"; 

FOR T=l TO (LEN(SC*)/8) 

),:NEXT T:? " '■■ T^Tg J *** . " 

:NEXT T20:POKE 82,2 

IF STRIG(0)=1 THEN 530 

? " <CLEAR> " : FOR T20=l TO 

TURN 

REM 

GET #1,T: 

TURN 

IF C*="SPELL" THEN CS="":GOTO 800 

IF C*="TAKE" THEN C*="":GDTO 640 

IF C*="QUIT" THEN C*="":GOTO 610 

IF C*<>"HELP" THEN 600 

? " CCLEARJTAKE: takes treasure £TAB> SPELL 

: casts spell";:? "LISTsshows inventory 

CTABJQUIT: ends game" 



j^^ j^s j,- j;r 



IF C«="LIST" THEN GOSUB 480:RE 
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CH595 ? "trigsshows inventory/attacks w/ swor 

d" 
KH 597 C*=" ": RETURN 

IB 600 ? " <XLEAR> {BELL>WHAT?7" : C*=" ": RETURN 
EC 605 REM UWSi 
FF610 ? " CCLEARJPOINTS: " ; 1 0* ( GP+ < LEN ( SC* ) ) +S 

+SH):? "ARE YOU SURE YOU WANT TO QUIT?" 

: C*=" " 
LG 620 GET #1,C:IF C = 89 THEN GRAPHICS 0:END 
LO 630 ? " {CLEAR> ": RETURN 
CL 639 REM Z¥?nZZ 

JA 640 ? " {CLEAR} ": IF LEN(MT*)=0 THEN 750 
KL 650 FOR T=l TO ( LEN < MT* ) /B ) : I F MT*(T*8-7,T* 

8-7><>"S" THEN 710 
LI 660 IF MT* (T*B-7, T*B-3)< >"SWORD" THEN 690 
KI 670 C=VAL (MT* (T*8, T*8) > : IF C<=S THEN NEXT T 

:GOTO 750 
MB 680 S = C:? " + ";C;" SWORD":NEXT T:GOTO 750 
DL 690 IF MT* (T*8-5, T*8> ="SSPEED" AND SS=1 THE 

N NEXT T:GOTO 750 
MB 700 IF LEN(SC*)=80 THEN 7 "YOU CANNOT CARRY 

ANY MORE SCROLLS" : NEXT T:GOTO 750 
CK 705 SC*(LEN(SC*)+1) =MT* ( T*B-7 , T*8 ) :? "SCROL 

L: ";MT* (T*8-6, T*8) : NEXT T:GOTO 750 
BJ710 IF MT* (T*8-7, T*8-7) < >"A" THEN 725 
PA715 C = VAL (MT* (T*B, T*8) ) : IF C<=SH THEN NEXT 

T:GOTO 750 
EL 720 SH = C:? "+ ";C;" ARMOUR":NEXT T:GOTO 750 
HE 725 IF MT* (T*8-7, T*8-7) <>"E" THEN 735 
BP 730 SSQ = 0:SS=1:? "ELVEN SLIPPERS-SUPER SPEE 

D ! " : NEXT T: GOTO 750 
OL 735 ? "POTION OF HEALING... DO YOU WANT TO 

iZ SPACES>USE IT NOW";: INPUT I*: IF I*<> 

"N" THEN HP=HP+5:? " HP : " ; HP : NEX T T:GOTO 
750 
GL 740 ? "IT TURNS TO WATER! ":NEXT T 
CI 750 GP = GP + MG:? MG;" GOLD P I ECES " : C*= " " : MT* = 

" " : MG = 0: RETURN 
CJ 795 REM M J4H 
6C 800 ? " <CLEAR>WHICH SCROLL (TYPE LIST TO SE 

E Y0URC3 SPACES>LIST) ";: INPUT C*:IF C*= 

"LIST" THEN GOSUB 515:G0T0 800 

IP810 FOR T=l TO (LEN (SC*) /B) : IF SC*(T*B-5,T* 

B)OC* THEN NEXT T:? "YOU DON'T HAVE TH 

AT SCROLL !": C*="" : RETURN 
KC 820 C = 0:IF C*="HEALTH" THEN HP = 50:? "HP:50" 

:GOSUB 2600:GOTO 960 
KH 830 IF C*="SSPEED" AND SS = THEN SS=1:SSQ=1 

:F=0:? "SUPER SPEED ON.":GOSUB 2600:GOT 

960 
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JH 840 IF C*="GOLUCK" THEN S = S+ 1 : SH = SH+ 1 : GDQ = B 

OQ+1:? "YOU FIGHT BETTER !": GOSUB 2600:G 

OTD 960 
HL 850 IF C*<>"STONES" OR BK1 THEN 860 
IP 855 ? "A GUST OF WIND PELTS THE MONSTER WIT 

H STONES !": C=INT (RND (0) *10) +1+S: GOSUB 2 

700:GOTO 960 
OB 860 IF C*<>"CONTRA" THEN 900 

BK 870 ? "A BEAM FLIES FROM THE PAPER! YOU ARE 
HIT!!":FOR T2=l TO 200:SETCOLOR 4,4,0 

: SOUND 0, 76, 10, 10 
DL 880 SETCOLOR 4,0,0:SOUND , 1 02 , 1 , 1 : NE XT T 

2:EX=1:? #6 ;" {CLEAR J " : COLOR l:PLOT 0,19 

:W = 0:? "YOU ARE TOTALLY LOST ! ! " 
PN 890 SOUND 0, 0, 0, 0: GOSUB 3000:GOTO 960 
K6 900 IF C*="FIREBA" THEN ? "A FIREBALL SHOOT 

S FROM THE PAPER ! ! " : C= I NT ( RND ( ) * 2 1 ) + 1 

:GOSUB 2800:GOTO 960 
HO910 IF C*="ENERGY" THEN ? "A LIGHTNING BOLT 
SHOOTS FROM THEC6 SP ACES > PAPER !!!": C= I 

NT (RND (0) *1 1 ) +20: GOSUB 2900:GOTO 960 
OD 920 IF C*<>"BATSHR" THEN 935 
KC 925 IF B*="GIANT BAT" THEN ? "THE BAT SHRIN 

KS AND DISAPPEARS !": B1=0: POP : GOSUB 960 

:GOTO 1150 
NB 930 ? "THERE IS NO BAT HERE, SO NOTHING 

£6 SPACES>HAPPENS" : GOTO 960 
OC 935 IF C*<> ,: SEEING" THEN 955 
BG 940 X = INT(RND(0)*38)+1:Y=INT(RND(0)*18)+1:F 

OR T3=X-1 TO X+l:FOR T2=Y-1 TO Y+l:LOCA 

TE T3,T2,T20 
AD 945 IF T20< >0 THEN NEXT T2:NEXT T3:C=0:BOSU 

B 2600:GOTO 960 
BI 947 EX = EX + 1 : C=INT (RND (0) *10) +1 : IF C>3 THEN 

C = 3 
IP 950 COLOR CsPLOT T3,T2:NEXT T2-.NEXT T3:C = 0: 

GOSUB 2600: GOTO 960 
HK 955 ? "NOTHING HAPPENS." 
BF 960 C*="":IF T* B=LEN ( SC* ) THEN SCt(T*8-7)=" 

":GOTO 970 
CD 965 SC* (T*8-7) =SC* (T*8+l ) 
BO 970 IF BK1 THEN RETURN 
Ell 980 POP :IF C = THEN 1110:REM MONSTER ATTAC 

KS 
OB 990 ? "YOU DO " ; C ; " HP DAMAGE !": B 1 =B 1 -C : I F 

BK1 THEN 1150:REM MONSTER DIES 
AO 1000 GOTO 1110:REM MONSTER ATTACKS 
16 1059 REM MilUi5WnM3 

GG 1060 GRAPHICS 2+ 1 6 : POS I T I ON 4,5:? #6; "YOU H 
AVE rTTTT " 
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FF1065 FOR C=l TO 200:NEXT C 

NH1070 FOR X = TO 5:F0R C = TO 255:P0KE 712, C 

:SOUND 0,C, 10, 10:NEXT C:NEXT X 
NO 1075 SOUND 0,0,0,0:GOTO 1385 
BL 1079 REM B3Sm3ul 

AG 10B0 ? "YOU USE YOUR SWORD. " ; : FOR T=12 TO 
STEP -l.-SOUND 0,T,0,B:NEXT T:SOUND 0, 

0,0,0 
NI 10B5 IF INT (RND (0) *20) +1+S>B THEN 1095 
G6 1090 ? "YOU MISSED !": GOTO 1110 
IH1095 ? "A HIT! " ; : FOR T=15 TO STEP -l:SOU 

ND 0, 70, 4, T: NEXT T 
HD1100 X=INT(RND (0) *10) +1+S: ? X;" HP DAMAGE!" 

:F = 0: B1=B1-X: IF BK1 THEN 1150 
DA 1110 FOR X=l TO 100:NEXT X:? "THE ";B*; " AT 

TACKS. ";:FOR T=12 TO STEP -l:SOUND 

,T,0,B:NEXT T:SOUND 0,0,0,0 
NK 1115 IF INT(RND (0) *20) +1-SH + B2>10 THEN 1130 
NG1120 ? "IT MISSED !": GOTO 1B0 
FE1130 ? "IT HIT! " ; : FOR T=15 TO STEP -l:SO 

UND 0, 60,4, T: SETCOLOR 2,2,T:NEXT T:SET 

COLOR 2, 12, 
PH1132 X=INT (RND(0) *10> +1+ (B2*2) : ? X;" HP DAM 

AGE ! " : HP=HP-X: ? "YOU HAVE ";HP;" HP LE 

FT" 
FJ1135 IF HP< 1 THEN 13B0 
JI 1 140 GOTO 1B0 
EF1149 REM GSBEaBBSaoaEBlIS 
Nil 1150 ? "THE ";B*;" IS DEAD !": FOR T = 50 TO 15 

0.-SOUND 0, T, 10, 10: SOUND 1 , T- 1 , 1 , 1 : N 

EXT T 
HP1160 SOUND 0, 0, 0, 0: SOUND 1,0,0,0:FOR T=l TO 
50:NEXT TrSOUND , 20 , , 1 : FOR T=l TO 

15:NEXT TiSOUND 0,0,0,0 
AE1170 ? "THERE IS A SMALL PILE OF TREASURE!" 

: IF B2=0 THEN 1230 
ND1180 FOR X=l TO B2 : Y= I NT ( RND ( ) * 1 00 ) + 1 : I F Y 

<26 THEN MT* (LEN (MT$) +1 ) ="ELF SLIP":NE 

XT X 
E6 1190 IF Y>25 AND Y<46 THEN MT* ( LEN ( MT* ) + 1 ) = 

"ARMOUR+3" :NEXT X 
PL 1200 IF Y>45 AND Y<66 THEN MT* ( LEN ( MT* ) + 1 ) = 

"SWORD +3":NEXT X 
CG 1210 IF Y>65 AND Y<B1 THEN MT* ( LEN ( MT* ) + 1 ) = 

"S GOLUCK":NEXT X 
EE 1220 IF Y>B0 THEN MT* ( LEN ( MT* ) + 1 ) = " S HEALTH 

":NEXT X 
CK 1230 IF B3 = THEN 1300 
BC 1240 FOR X = l TO B3 : Y= I NT ( RND ( > * 1 00 ) + 1 : I F Y 

<11 THEN MT* (LEN (MT*) +1 ) ="POTHEALI " : NE 

XT X 
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DK 1250 

EE 1260 

CN 1270 

AB 12S0 

CP 1290 

DC 1300 

HJ 1 3 1 

DE 1320 

FL 1330 

DL 1340 

FK 1350 

FD 1360 

IC 1370 

GC 1372 

CE 1377 

AL 1379 

FD 13S0 

HP 1385 

EG 1390 

BJ 1395 

BC 1400 

FI 1410 

MI 2002 

BE 2003 



JF 2005 
MB 2007 
ID 2009 



AC 201 1 
PL 2499 



IF Y>10 AND Y<36 THEN MT$ ( LEN ( MT* ) + 1 ) = 

"ARMPUR+1 " : NEXT X 

IF Y>35 AND Y<46 THEN MT* < LEN < MT* > + 1 ) = 

"ARMDUR+2" : NEXT X 

IF Y>45 AND Y<66 THEN MT* ( LEN ( MT * ) + 1 ) = 

"S BSPEED":NEXT X 

IF Y>65 AND Y<91 THEN MT* ( LEN ( MT* ) + 1 ) = 

"SWORD +1":NEXT X 

IF Y>90 THEN MT* < LEN ( MT* )+ 1 )=" SWORD +2 

":NEXT X 

IF B4=0 THEN 1372 

Y=INT (RND (0) *100) +1 : IF Y<8 THEN MT*(LE 

N(MT*)+1)="S HEALTH" 

IF Y>7 AND Y<30 THEN MT* ( LEN ( MT* ) + 1 ) = " 

S STONES" 

IF Y>29 AND Y<37 THEN MT* ( LEN < MT* ) + 1 ) = 

"S CONTRA" 

IF Y>36 AND Y<54 THEN MT* ( LEN ( MT* > + 1 ) = 

"S FIREBA" 

IF Y>53 AND Y<61 THEN MT* ( LEN < MT* ) + 1 > = 

"S ENERGY" 

IF Y>60 AND Y<8S THEN MT* ( LEN ( MT* ) + 1 ) = 

"S SEEING" 

IF Y>87 THEN MT* ( LEN ( MT* ) + 1 ) = " S BATSHR 

II 

MG=INT(RND(0)*B5):B*="":B1=0:B2=0:B3=0 

: B4=0: B5=0: IF SSQ=1 THEN SSQ=0:SS=SSO 

S=S-GOO: SH=SH-GOQ: GOQ=0: GOTO 180 

REM BrJEH3IM33auG 

? "YOU ARE DEAD ! " 

T=10*CGP+(LEN<SC*> )+S+SH) 

? "YOU HAD ";T;" POINTS": IF HP< 1 THEN 

GOSUB 3100 

? "DO YOU WANT TO PLAY AGA I N " ; : I NPUT I 

*: IF I*="Y" THEN CLR : RUN 

? "ARE YOU SURE";: INPUT I*: IF I*="N" T 

HEN CLR :RUN 

GRAPHICS 0:END 

rem BDBcriiaEBEgBasa 

DATA GIANT B AT , 20 , , 2 , , 75 , WERE- WOLF , 2 

0,0,2,0, 50, GIANT SPIDER, 10, 0,2,0, 50, GO 

BLIN, 10, 0, 1 , 0,25 

DATA GHOST, 10, 0, 1 , 0, 10 

REM EESEnMESSnMBMsS 

DATA HUGE DR AGON , 40 , 2 , , 1 , 1 50 , DRAGON , 3 

0, 1 ,0, 1 , 100, HUGE GIANT, 40, 2,0, 1 , 100, G I 

ANT, 30, 1 , 0, 1 , 75 

DATA HUGE SP I DER , 40 , 2 , , 1 , 75 , TROLL , 30 , 

1 , 0, 0, 75 

REM 151 :l:3:fe<rrt«=Till !:!»■: 
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PD 2500 FOR T=l TO 2:F0R Tl = 15 TO STEP -l:SO 

UND 0, Bl*3, 10, Tl : NEXT T1:NEXT T 
6A2510 FOR T=l TO 50:NEXT T:RETURN 
66 2599 REM HHimiEiliri E 
102600 FOR Tl=20 TO 5 STEP -IsSOUND 0,INT(RND 

(0) *2) -1+T1 , 10, 10: NEXT Tl:SOUND 0,0,0, 


MD2610 FOR Tl = l TO 50:NEXT TlrRETURN 
IH 2699 REM LUA MrM-ilM-Wri" 
LD 2700 FOR Tl = 12 TO STEP -l:SOUND 0,T1,S,8: 

NEXT Tl:SOUND 0,0,0,0 
HI 2710 FOR Tl = l TO 3:F0R T2=15 TO STEP -4:S 

OUND 0, 12, 0, T2: NEXT T2:NEXT Tl:SOUND 



KF 2720 FOR Tl = l TO 50:NEXT T1:RETURN 

ON 2799 REM Ul **:]=< =1:1 ^ arT-T'T 

LE 2800 FOR Tl = 12 TO STEP -l:SOUND 0,T1,8,S: 

NEXT Tl:SOUND 0,0,0,0 
MF2810 FOR Tl = 15 TO STEP -l:SOUND 0,50,0,T1 

:FOR T2=l TO 8:NEXT T2:NEXT Tl 
H6 2820 FOR Tl = l TO 50:NEXT T1:RETURN 
KC 2899 REM Ui^WIHrHIEtMiiil^i UB-fVI'r 
FP 2900 FOR T1=0 TO 75:S0UND , T 1 , , 1 : NEX T Tl 

:SOUND 0, 0,0, 0: RETURN 
KA 2999 REM I:3=fc1=*ja[ii:u*<=<:a J :1:T:1SI=*i=f-a 
AL 3000 B*=" ":B1=0:B2 = 0:B3 = 0:B4 = 0:B5 = 0:MT$="": 

MG=0: RETURN 
DF3099 REM BBBliaEIIlll 
KN3100 RESTORE 3200 
BH3110 FOR T=l TO 2B:READ T2,T3:S0UND 0,T2,10 

, 8*SGN (T2) : FOR T2=l TO T3/2:NEXT T2:S0 

UND 0,0,0,0:FOR T2=l TO 6:NEXT T2 
HD3120 NEXT T:RETURN 

KH 3200 DATA 108,50,108,25,81,150,0,25 
HJ3210 DATA 108,50,81,25,64,150,0,25 
6B 3220 DATA 108,50,81,25,64,75 
6C 3230 DATA 108,50,81,25,64,75 
IN3240 DATA 108,50,81,25,64,150 
EN 3250 DATA 81,50,64,25,53,150,0,25 
IC 3260 DATA 64,50,81,38,108,150,0,25 
LL 3270 DATA 108,50,108,25,81,200 
LF 4998 END 



178 



1 
1 



- Granite Cracker 



Thomas Edwards 



"Granite Cracker" is one of those easy to play, but hard to master 
games. Most players will do okay, but few will do really well 
without a great deal of practice. Requires a joystick. 

Zarnog 5 was a great intergalactic space port. Thousands of 
ships arrived and departed every day. But, suddenly, tragedy 
struck. Overnight, hundreds of granite cubes, one mile to a 
side, blocked the spaceways around the planet. Realizing what 
devastating effects this might have on business, the leaders of 
Zarnog 5 created a fleet of giant bouncing jackhammers to 
combat the blocks. However, these machines were very dan- 
gerous because they tended to pop out of existence if it took 
long to destroy the blocks. A crash spelled instant death to the 
operator. So the leaders gathered together the best pilots for a 
crack team of jackhammer operators. Now it's your turn to pi- 
lot a granite cracker. 

Using the Hammer 

You can move the jackhammer right and left by the joystick in 
port 1. Up-and-down movement is provided by bouncing on 
the granite blocks. If you hit a block by falling from above, it 
will probably destroy the block. If it doesn't disappear, try hit- 
ting it closer to the middle. 

Each background color has its own special meaning: 

Black Doing fine. 

Red Watch out! Time is almost up. 

Yellow-Green Oops! You crashed to the ground. 

Blue Oops! Ran out of time. 

When you crash or run out of time, the computer will 
take a few moments to see how many blocks are left. If none 
is left, you get to play another screen. If some blocks are left 
on the screen, the computer will tell you your score, and 
you'll be able to play again or change parameters. 

More Bounce 

To start the game just press the START key. You'll be given 
the option of changing the horizontal and vertical speed and 
the bounce factor. To make the game a bit easier, raise the 
bounce factor. 
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"Granite Cracker" is a game that takes some practice, es- 
pecially if the bounce factor is low. — 

Granite Cracker 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

51 DIM PM1* ( 12B) , HAM* ( 16) , CLEAR* ( 12B) 

HA 1 Ll = l :t_2=l : L3 = B 

HI 4 REM SET SPEEDS 

HE 5 Ll = l : L2=l : L3 = 8 

HJ 10 GDSUB 620 

IA 20 GOSUB 680 

CM 29 REM UPDATE LEVEL AND PREPARE SCREEN 

JF 30 L5 = L5+1 : GRAPHICS 3+16:C0LDR 1 : POKE 710,0 

AL 40 FDR 1 = 1 TO 60 

KH 41 X=INT(3S*RND(0)+2) :Y=INT(19*RND(0)+4) :LO 

CATE X,Y,Z:IF ZO0 THEN 41 
EE 42 PLOT X, Y: NEXT I 
DK 50 Q = -l : COLOR 
BC 5? REM SET TIMERS 

LA 60 POKE 18,0:POKE 19,0:POKE 20,0 
LH 69 REM SET UP JACKHAMMER 
JO 70 SIZE1 = 16: SC = 0: C = 
IN 80 RESTORE 

BI 90 FOR ROWS=l TO SIZE1 
OH 100 READ DOTS 

GI110 HAM* (ROWS, ROWS) = CHR* (DOTS) 
BN 120 NEXT ROWS 
EO 130 DATA 0, 0, 0, 0, 
BI 140 DATA 112,32,32,32,32,32 
FA 150 DATA 0,0,0,0,0 
NA 160 FOR ROWS=l TO 1 28 : CLEAR* < ROWS , ROWS ) =CHR 

* (0) : NEXT ROWS 
NF 170 A = 4* ( INT (PEEK (742) /4) -1 ) 
EA 180 POKE 54279, A 

NA 190 VSA=256*PEEK ( 135) +PEEK ( 134) 

KK 200 B0A = 256*PEEK ( 141 ) +PEEK ( 140) — . 

DI 210 PM = 256*A + 512 
JN 220 DISP = PM-BOA 
m 230 ADD=2 

ft! 240 PMHIGH=INT (DISP/256) 
EE 250 PML0W = DISP-256*PMHIGH 
BA 260 POKE VSA+ADD, PMLOW 
OL 270 POKE VSA + ADD+1 , PMHIGH 
BJ 280 DISP = DISP+128: ADD = ADD + 8 
FF 290 PM1* = CLEAR* 

GD 300 POKE 559,46:P0KE 53277, 7:PDKE 623,40 
BJ310 C0LR1=25: C0LR2=1 1 : C0LR3 = 74 
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BE 320 

PK 32B 
HK 329 
KJ 330 
IB 340 

JA 350 
IP 359 
OP 360 
AE 370 

EJ 380 

Bf 3 9 

CP 400 

GF 410 
HA 4 19 
CP 420 
MB 430 

FF 4 40 
HJ 450 
BB 459 
CP 460 

DH 4 70 

PN 480 
HN 490 
OA 499 
GC 500 
FI 510 
FP 515 
FM 520 



KM 530 
LB 540 



GH 550 
HA 560 

FE 570 

GG 580 
JH 590 

PD 600 



PO 

CD 

RE 

RE 

XI 

PO 

*: 

Yl 

RE 

Yl 

IF 

X 1 

) > 

IF 



GO 

: I 

GO 

RE 

S = 

DX 

S = 

XI 

RE 

RE 

PO 

PL 

XI 

SO 

RE 

RE 

SO 

HA 

PO 

PO 

9: 

+ Z 

GR 

SF 

10 

O 

PO 

PO 

: P 

L5 

PO 
P = 
0: 
IF 



E 
R^ 

M 

P 
i 
E 

OT 
1 

M 
Yl 
Q = 
X 1 
3- 
PE 
00 
UB 

Y 


G 
TI 
(S 
1 ) 
X 1 
UR 

E 
E 
T 

0. 
ND 
UR 

G 
ND 
$ = 
E 
E 

OC 
SO 
PH 
SF 

1 
60 
IT 
IT 
SI 
0: 
o" 
IT 
EE 
OT 
P = 



704, C0LR1 : POKE 




705, C0LR2: POKE 706, 



THEN PM1*(Y1)=HAM 



OVE JACKHAMMER 

+Q:IF PEEK(53252) THEN GOSUB 460 
-1 THEN C = C+1:IF OL3 THEN Q=1:C = 
+ L1* (XK47) -LI* (XI >206) : IF PEEK C 19 
L4 THEN SETCOLOR 4,3,2 
EK(19)>20-L4 THEN POKE 712,114:G0T 

420: Y1=Y1+L2*Q: SOUND 0,Yl+5, 10, 10 
1>103 THEN POKE 712,20:GOTO 500 
340 

ET STICK INPUT 
CK (0) 
=5 OR S=6 OR S=7)-(S=9 OR S=10 OR 

+L1*DX 
N 

RASE BLOCK 
53278, 1 

(XI *0. 245) -1 1 , <Y1*0. 2352) -2: PLOT ( 
2453) -11, (Y1*0.2352)-1:Q=-1 

0, 100, 2, 10 
N 
AME OVER 

0,0,0,0 
CLEAR* 

77,0:POKE 53248,0 

53277, 0:FOR X=4 TO 23:F0R Y=l TO 3 
ATE Y,X,Z:SOUND , 1 , 1 , 1 4* Z : SC=SC 
UND 0,0,0,0:NEXT Y:NEXT X 
ICS 1+16 

+ (60-SC) *100*L5: IF SC=0 THEN POSIT 
, 1:PRINT #6;"Y0U GET AN EXTRA":GOT 



SF 



ION 2,1:PRINT #6;"score: 
ION 1,5:PRINT #6; "press g reEBESg to" 
TION 1,6:PRINT #6;"change speed." 
POSITION 1,10:PRINT #6;"press gg^m 

ION 1,11:PRINT #6;"start game." 
K(53279):IF P=3 THEN SF=0:GOSUB 68 
30 
6 THEN SF=0:GOTO 30 
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60 610 GOTO 590 

CD619 REM TITLE PAGE 

KN620 GRAPHICS 2+16 

BH630 POSITION 3,3:PRINT #6;"granite cracker" 
:POSITION 2,6:PRINT #6; " LHaQIMSISlBS^BE 

NF640 POSITION 5,10:PRINT #6; "PRESS SEU'iPQ 
SITION 6,11:PRINT #6;"T0 BEGIN " 

CD 650 FOR 1=0 TO 15:SETC0L0R , I , I : SETCOLOR 1 
, 15-1 , 15-1 : SOUND , I * 1 , 4 , 1 : SOUND 1,J, 
6, 10: J = J+1 : J = J* ( JO100) : NEXT I 

CN 660 IF PEEK (53279) =6 THEN RETURN 

HB 670 BOTO 650 

CE 679 REM CHANGE PARAMETERS 

HJ 680 GRAPHICS l:POSITION 3,1:PRINT #6;"H0RIZ 

ONTAL SPEED" 
HI 685 SOUND , , , : SOUND 1,0,0,0 
BD 690 POSITION 4,5:PRINT #6 ; " VERT I CAL SPEED" 
LO 700 POSITION 4,8:PRINT #6; "BOUNCE FACTOR" 
A8710 POKE 710,0:PRINT "PRESS OPTION FOR HORI 

ZONTAL SPEED":PRINT "PRESS SELECT FOR V 

ERTICAL SPEED . " ; 
GO 720 PRINT "USE THE JOYSTICK FOR BOUNCE FAC 

TOR" : POKE 752, 1 
PC 730 PRINT "PRESS START TO START"; 
KH 740 POSITION 10,2:PRINT #6;L1 
KN 750 POSITION 10,6:PRINT #6;L2 
DB 760 POSITION 10,9:PRINT #6;L3;" " 
GL 770 SOUND 0,0,0,0 

AC 780 P = PEEK (53279) : IF P = 7 THEN 820 
ON 790 IF P = 3 THEN L 1 = 1 +( L 1 = 1 ): SOUND 0,L*100 + 5 

0,10,10:FOR 1=1 TO 20:NEXT I : GOTO 740 
M 800 IF P = 5 THEN L2= 1 +( L2= 1 ): SOUND 0,L*100+1 

50,10,10:FOR 1=1 TO 20:NEXT I : GOTO 740 

RETURN 

IF STICK(0)=15 THEN GOTO 740 

S=STICK(0) :L3=L3-(S=13)+(S=14) :L3=L3+13 

* (- (L3=14) + (L3=0) ) 

SOUND 0, L3*19, 12, 10 

GOTO 740 

REM EXTRA SCREEN 

POSITION 1,2:PRINT #6 ;" screen ! " 

FOR 1 = 1 TO 30:FOR J=l TO 20*RND ( 1 ) : SOUN 

D 0, I+10*RND ( 1 ) , 10, B: NEXT J:NEXT I 

SOUND 0,0,0,0:POKE 19,0:L4=L4+2 

SC=0:GOTO 30 
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Pits of Pluto 

Michael Dean, Jeff Destefano, Jeff Scammaca, and 
Timothy Shaw 



Using simple graphics and scrolling, "Pits of Pluto" demonstrates 
some interesting BASIC programming techniques. Requires a 
joystick. 

Your mission is to move to the bottom of the pit without run- 
ning off the screen and avoid the obstacles that seem to ap- 
pear as you move lower in the pit. You'll have to press your 
control (the joystick button) to see if you've reached the 
bottom. 

Selecting a Pit 

When the game starts, pick the level of difficulty by pressing 
SELECT. Levels 1 and 2 are not very difficult, but don't be 
fooled by the ease of the lower levels. Levels 7, 8, and 9 will 
make you a bit more humble. Choose random or staggered la- 
ser gates by pressing OPTION. Pressing the START key be- 
gins your mission. 

You have only one chance. 

The higher the level, the longer and more difficult the 
course. Besides red missiles, blue pods are added at level 4, 
and anti-jeff bombs are included at level 7 and up. 

When you reach the core of Plutonian Headquarters, fly 
to the bottom and use the joystick trigger. 

Pits of Pluto 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PI 10 GRAPHICS 23:ST=PEEK(74i)+256*PEEKC742) :P 
OKE ST+8,7:P0KE ST+9,6 

DIM A* (256) , J ( 16, 2) : POKE 559,46:P0KE 704 
,24:P0KE 53260 , 3 : I =PEEK ( 1 06 ) -24 : POKE 542 
79, I : POKE 53277, 3 
POKE 53256, 1 : VT = PEEK ( 134) +256* PEEK ( 135) : 

AT=PEEK(140)+256*PEEK(141>:OF=I*256+384- 
AT: T=l : l_=l 

HI = INT (OF/256) :L0 = 0F-HI*256: POKE VT + 2.L0 

:P0KEVT+3,HI 
PA45 FOR X=l TO 15:READ A : J ( X , 1 ) = A : NE X T X : FOR 

X=l TO 15:READ A : J ( X , 2 ) =A : NEX T X 
KO 50 COLOR 2:PL0T 0,3:DRAWTO 0,95:PLOT 159,3: 

DRAWTO 159,95 



DE 



30 



GA 4 
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CF 6 5 5 



66 
70 



K 

ED 75 C 

5 

CI 80 I 



84 
88 
90 



HH 9 5 P 
5 

BA 9 6 G 
99 X 
100 
101 



CJ 
KE 

BF 



PD 
LL 

a 

KP 



PA 
PA 



HE 



105 
1 10 

1 15 
120 



i ^2 

125 



130 

132 



01 134 



OF 
Ntl 

FA 

AI 

GC 
BI 
6N 
OL 



135 
140 

145 

150 

155 
170 
199 
200 



ETCO 

,1,1 

159, 

OUND 

OKE 

PQSI 

E 87 

DLDR 

: DRA 

F PE 

F T = 

F T = 

F PE 

99 

OKE 

3279 

OTO 

= 120 

IF Y 

At (Y 

t i 
*■■£ , 

SETC 

X = X + 

E 53 

1 = 1- 

PLOT 

CDEL 

: N = N 

X = X + 

PLOT 

T N- 

HEN 

IF N 

IF R 

95: D 

4: CO 

IF K 

WTO 

QT N 

IF N 

G = G + 

OR 2 

IF T 

THEN 

C = PE 

= 7 T 

IF C 

IF P 

GOTO 

H = N + 



LOR 0,0 
2: COLOR 
RND (0) * 

0,0, 0, 
87, 0: PO 
TION 22 
, 7: SETC 

2: PLOT 
WTD 159 
EK (5327 
1 THEN 
-1 THEN 
EK (5327 

87, 0: PO 
) =5 THE 
80 

: Y=40: N 
>1 12 TH 
+128, Y+ 
J " : POKE 
OLOR 2, 
J (STICK 
278, 
0. 04: S= 

0, 4: PO 

LINE} " 
+ M: COLO 
J (STICK 

N + Z+l , 
1 , 95: PL 
M = 

>109 OR 
ND (0) >0 
RAWTO N 
LOR 2:P 
=1 THEN 
N+Z+5, 9 
+Z , 94: D 
<5 OR R 
1 : IF T 
, 1 , 10: S 
=-1 AND 

SETCOL 
EK (5325 
HEN GOT 
= 4 AND 
EEK (532 

100 
Z: Z=0 



,10:SETCOLOR 1 , 8 , 6 : SETCOLOR 

l:FOR X=l TO 43:PL0T RND(0) 
90+5:NEXT X 


,2:7 S:POSITION 34,2:? HS:PO 
OLOR 3, 12,8 

0,95:DRAWTO 58,95:PL0T 90,9 
,95:PL0T 0,3:DRAWTO 159,3 
9) =3 THEN T=-T 
SETCOLOR 3, 12,8 

SETCOLOR 3,4,8 
9)=6 OR STRIG(0)=0 THEN GOTO 



SITION 
N L = L+1 



:9, 2: ? "Q" ; L: IF PEEK ( 
IF L=10 THEN L=l 



50 



=59: M=0: Z= 
EN Y=112 

144) =" C2 , }<f BtBACK 
53248, X: SOUND 0,Y* 
0, 0: SOUND 1,0,0,0 
(0) , 1 ) : Y=Y+J (STICK (0) 



SX-fg 
+30, 8,8 

2) : POK 



S+1:IF Z<28-L THEN GOTO 200 
KE 87, 0: POSITION 
POSITION 



0, 4: 




RND 
. 98 
+ Z, 9 
LOT 

DRA 
5: PL 
RAWT 
ND (0 
1 AN 
OUND 
INT 
OR 2 

) : I 
60 
PEEK 
79) = 



(0) > 
THEN 
5: PL 
N-5, 
WTO 
OT N 
N + 
) >0. 
D G = 
1,2 
(RND 

,1,1 
F C = 


(710 
6 TH 



0.99 THEN M=-l 

K=l:COLOR 3:PL0T N, 
OT N,94:DRAWT0 N+Z,9 
95 

N,95:PL0T N+Z,95:DRA 
-5,94:DRAWT0 N,94:PL 
Z+5, 94: K=0 
99 THEN M=l 

INT(Z/3) THEN SETCOL 
2, 14, 10: G=0 

(0) * (Z/3) ) =INT (Z/3) 
0: SOUND 1 , 22, 14, 10 
2 OR C=3 OR C=5 OR C 

)=26 THEN GOTO 600 
EN GOTO 600 
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KL210 A* (Y+128, Y+144) =" C2 ,}<fBCBfiCK SXfR 

<-2 ,}":POKE 53248, X: X=X+J (STICK(0) , 1) :Y 
=Y+J(STICK(0) ,2) :SOUND 0,Y*2+30,8,8 
CA 220 PLOT 0,4:POKE 87 , : POS I T I ON 0,4:? " 

{DEL LINE} ": POSITION 22,2:? S:POKE 87,7 
: S=S+1 
EF 230 POKE 53278,0: IF N>10 THEN N = N-1 
JL 235 IF H<150 THEN H = H+1 

MC 240 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 
:DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 
,95 
6F 247 Z = Z + 1:IF Z>90 AND N<12 AND H>148 THEN B 

OTO 300 
DN 250 IF PEEK (53252) <>0 AND PEEK ( 53252 ) <>4 TH 
EN GOTO 600 
GOTO 210 

Z=0: SETCOLOR 2,4,6 

A* (Y+128, Y+144) = " C2 ,XfB{BflCK SX-fS 
C2 ,}":POKE 53248, X: X=X+J (STICK (0) , 1) : Y 
= Y + J (STICK (0) ,2) :SOUND 0,Y*2 + 30,8,8 
CA310 PLOT 0,4:POKE 87 , : POS I T I ON 0,4:? " 

{DEL LINE} " : POSITION 22,2:? S:POKE 87,7 
: S=S+1 
IP 320 COLOR l:PLOT 0,95:DRAWTO N,95:PL0T H,95 
:DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 
,95:P0KE 53278,0 
CJ 325 IF L>3 AND RND ( ) >0 . 9-L/99 THEN COLOR 2 
: W=RND (0) *133+13: PLOT W,94:PL0T W+2,94: 
PLOT W+1,95:PL0T W+1,93 
ED 330 IF RND(0) >0. 9- (Z/50) /99 THEN W = RND(0)*1 
34+12:C0L0R 3:PL0T W,95:DRAWT0 W,92:PL0 
T W+2, 95: DRAWTO W+2,92:K=1 
OC 335 IF K=l THEN PLOT W+ 1 , 94 : DRAWTO W+1,90:K 

= 
KP 337 IF L>6 AND RND ( ) >0 . 9-L/99/2 THEN W = RND 
(0) *120+13: COLOR 1 : PLOT W,81:DRAWT0 W,8 
l+L:PLOT W-L/2, 81+L/2: K=l 
IF K=l THEN DRAWTO W+L/2 , 8 1 +L/2 : K=0 
Z=Z+1:IF Z>L*50 THEN SOTO 350 
IF PEEK (53252) <>0 THEN SOTO 600 
GOTO 305 

FOR 0=1 TO 90:PLOT 0,4:POKE 87,0:POSITI 
ON 0,4:? "CDEL LINE}":POKE 87,7:P0KE 53 
278, 

IF Y>112 THEN Y=112 

A* (Y+128, Y+144) =" C2 ,}<+B£BACK S}<-f[g 
C2 ,}":POKE 53248, X: X=X+J (STICK(0) , 1) : Y 
=Y+J(STICK(0),2):SOUND 0,Y*2+30,8,8 
EN 357 IF PEEK (53252) <>0 THEN GOTO 600 
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PN 360 COLOR l:PLOT 0,95:DRAWTD N,95:PL0T H,95 

■.DRAWTO 159,95:C0L0R 2:PL0T N,95:PLOT H 

,95:NEXT Q:Q=79:W=80 
EB 400 COLOR 3:SETC0L0R 2,12,S:F0R V=10 TO -10 

STEP -1:K=5GN(V) 
KF 408 IF Y>112 THEN Y=112 
13410 A$ ( Y+128, Y+144) =" C2 ,X-fBCBACK SX-fg 

C2 ,>":POKE 53248, X: X=X+J (STICK (0) , 1 ): Y 

=Y+J(STICK<0),2> 
GM 420 PLOT 0,4:POKE 87 , : POS I T I ON 0,4:7 " 

CDEL LINEX:POKE 87,7 
Bh 425 IF PEEK (53252) < >0 THEN POKE 53278,0: GOT 

600 
KP 430 COLOR l-.PLOT 0,95:DRAWTO N,95:PL0T H,95 

: DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 

,95:C0L0R 3 
LN 435 Q = Q-K: W = W + K: PLOT 0,95:DRAWT0 W,95:NEXT 

V 
CC 450 FOR V=l TO 25 : N=N+ 1 : H=H- 1 
HC 453 PLOT 0,4:POKE 87 , : POS I T I ON 0,4:7 " 

•CDEL LINE>":POKE 87,7 
MK 455 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 

:DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 

,95 
BH 457 IF PEEK (53252) < >0 THEN POKE 53278, 0:GOT 

600 
LE 458 IF YM12 THEN Y=112 
LC 460 A* (Y+128, Y+144) =" C2 ,XfB{BACK SX^S 

£2 ,}"sPOKE 53248, X: X = X + J (STICK (0) , 1 ): Y 

=Y+J(STICK(0) ,2) :SOUND 0,Y*2+30,8,8 
EG 465 NEXT V:COLOR 2:PL0T N,95:DRAWT0 H,95:C0 

LOR 1 : FOR V=l TO 25 
HH 467 PLOT 0,4:POKE 87 , : POS I T I ON 0,4:7 " 

{DEL LINE>":POKE 87,7 
LF 468 IF Y>112 THEN Y=112 
JB 469 A$ (Y+128, Y+144) =" 1 2 ,}<-fB{BACK SX-fS 

C2 , y " : POKE 53248, X: X = X+J (STICK (0) , 1) : Y 

=Y+ J (STICK (0) ,2) 
LH 470 PLOT 0,95:DRAWTO 159,95:NEXT V 
KI 500 IF Y > 1 1 2 THEN Y=112 
KO510 At (Y + 128, Y+144) = " C2 ,J<-fB<:BACK SX-fS 

C2 ,>":POKE 53248, X: X = X + J (STICK (0) , 1 ): Y 

=Y+J(STICK(0) ,2) :SOUND 0,Y*2+30,8,8 
El 550 IF PEEK (53252 )< >0 THEN GOTO 600 
JK 560 IF X<120 AND STRIG(0)=0 THEN GOTO 700 
HF 599 GOTO 500 
HK 600 REM 

GI 610 POKE 87,0: IF S>HS THEN HS = S : POS I T I ON 34 
,2:7 HS' 
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RL 620 



KC 630 
OS 640 



699 
700 
710 



LE 720 

JB 730 
HF 740 
PP 750 



DE 760 

HB 770 
HL 999 



SQUN 

V=l 

DUND 

SOUN 

IF P 

E 70 

, 144 

GOTO 

REM 

POKE 

": H = 

HS = L 

N 22 

H = H + 

Y=l 1 

IF P 

CCLE 

£12 

SOUN 

GOTO 

DATA 

,0,0 



D 0,0, 
TO 9: A 

1 , V*5 
D 1,0, 
EEK (53 
4, 10: ? 
+ Y ) = " <: 

640 

87, 0: 


*500+5 
,2:? L 
1 : IF H 



0, 0: Z=40: S=0: POKE 704,72:FOR 
*(V+12B+Y)=CHR*(RND(0) *255) :S 
,6, 10: NEXT V 
0,0: POSITION 0, 

279)=6 OR STRIG(0)=0 THEN POK 
" {CLEAR} ": POKE 87 , 7 : A* ( 1 2S+Y 
11 , J ": GOTO 65 



!:? 



POSITION 4,2. 

:POSITION 34,2:? HS 
00+500: POSITION 0,0 
55 THEN H=0 



EEK (53 
AR> " : P 

> " ■ Z = 
D 0, H, 

730 

0,0,0 
,0,1,- 



55 THEN H=0 

,?)=6 THEN POKE 704,10:7 " 
'OKE 87, 7: A* ( 128+Y, 144+Y) =" 
=40:S=0:BOTO 65 
,14,8: POKE 710, H 

3,0,1,1,1,0,-1,-1,-1,0,0,0,0,0 
-1,0,0,1,-1,0,0,1,-1,0 
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The Catacombs of 
Your Mind 



Doug Wheeler 



This graphics-based adventure game has all the features of an 
adventure plus graphics that produce a visual image of the games 
maze. Requires 32K without a disk drive (48K if you use a disk) 
and a joystick. 

You are about to enter a world that exists only within your 
mind and on the video screen before you. It takes the form of 
a large, complex maze and contains many monsters. The 
methods you need to destroy these monsters are also found 
within the catacombs. 

The opaque green door leading to the outside is com- 
posed of an almost indestructible material. It can be destroyed 
only by magical means. 

All items needed to complete your journey must be found 
within the boundaries of the maze. No items will be brought 
into the maze and none will leave. 

You must perform a very specific set of steps before you 
can pass through the door which leads out of this world and 
back to reality. 

The Adventure 

This is a graphics-based adventure game for Atari computers 
with at least 32K bytes of memory (48K if you are using a disk). 

In calling this a graphics-based adventure game, I'm saying 
that it has all the features of a text adventure, plus graphics. 
The graphics consist of the view from your position within a 
mazelike labyrinth where you can see four locations ahead of 
you. A location is any position at which you may reside and 
where hallways may lead off in other directions (other than 
the direction you are currently facing). 

You move about this labyrinth by using a joystick 
plugged into port 1. Pushing the joystick forward will move 
you one location in the direction you are facing. Moving the 
joystick to the left or right turns you in the corresponding 
direction, while you remain in your current location. Pulling 
the joystick toward you causes you to turn around and face 
the opposite direction. If you should fall into one of the many 



188 



Chapter 5 



pits located throughout the catacombs, you will fall into an- 
other of the 360 locations in the catacombs, and you may even 
change direction. 

Text Input 

If, at any time, you wish to do something other than move 
around with the joystick, type in a command on the keyboard 
of the computer and press RETURN. This command must con- 
sist of two words: a verb and a noun, in that order. The ob- 
jects required to complete your journey are placed at certain 
locations in the catacombs. The objects are inside yellow 
boxes. By moving to the same location as a box, you can open 
it and examine its contents. If you type OPEN BOX, the com- 
puter will respond with a description of the object contained 
in that box. You can then get the object by typing GET fol- 
lowed by the name of the object. After playing the game sev- 
eral times, you may get to know where certain objects are, in 
which case you can move to the location of the object and get 
it without having to open the box. 

Many other verbs and nouns exist, but part of the fun of 
playing any adventure is discovering what you can and cannot 
do in any given situation. 

Two other commands which you should know are IN- 
VENTORY (or INV) and QUIT. INV gives you an inventory of 
all the items that you possess, including the items you are 
wearing. You have a limit of ten items which can be held at 
once. QUIT allows you to end your current game. After typing 
QUIT, you're asked to verify your command, type in your an- 
swer, and press RETURN. If you type YES, the program will 
exit to BASIC. If you type NO, you will be returned to your 
present location within the labyrinth. 

Monster Encounters 

Monsters are located throughout the catacombs. Their only 
purpose is to try to destroy you. When you meet one of these 
monsters, there is usually only one or two things you can do 
to destroy it. You may not leave that location until either you 
or the monster is destroyed. Any attempt to leave is inter- 
preted as an offensive action and will only speed your death. 

Another problem is that you have only three turns in 
which to destroy the monster — or it'll get you. 
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Typing Note 

Lines 10000-10419 contain the DATA for the rooms. Each 
DATA line has just four numbers. Don't change the line num- 
bers or try to consolidate the DATA into fewer lines. The RE- 
STORE statement is used to READ the proper DATA for the 
current room position. 

The Catacombs of Your Mind 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

010 DIM A*<15):G0SUB 32676 

hL 1 GOTO 10 

MH 4 IF P$="" THEN RETURN 

FF 5 FOR P = N1 TO LEN ( P* ) : J = ASC ( P* ( P , P ) ) : ? CHR* 

(ABS( J+ ( 1B7-N2*J) * (J>64 AND J< 1 23 ) ) ) ; : NEX 

T P:? :RETURN 
DE 6 V*="":IF V0*="" THEN RETURN 
Ch 7 FOR P = N1 TO LEN (V0*> : J=ASC (V0* (P, P) ) : V* (L 

EN(V*)+N1)=CHR* (ABS(J+(187-N2*J) * (J>64 AN 

D J< 123) )): NEXT P:RETURN 
OH 10 N0 = 0: Nl = l :N2 = 2: N3 = 3: N4 = 4: CR=192:CD = N1 : NO 

=N0: POKE 764,255:N205=20 5: MN=5:KC=0 
OD 15 DIM V* (20) , V0* (20) , P* (300) , D (N4, N4) ,P(4) 

, PI (4) , PD (4) 
(IE 20 GOSUB 20000: REM CE> CIMi f SZSMMSEBMBMSnS X MSSM 

jnzssmsnnsB Mn MMS MMm imi ts> 

CS 100 GRAPHICS 7:G0SUB 32676:C0L0R N3:P0KE 75 

2,1:F0R A=0 TO 4:F0R B=0 TO 4:D(A,B)=0: 

NEXT B:NEXT A 
6K 105 FOR A = TO 4:IF P(A)=CR AND 0(11)0-2 T 

HEN CR=P1 (A) :CD=PD(A) :GOTO 110 

NEXT A 

RESTORE 10000 + CR-.READ A , B , C , D : D < N0 , N 1 ) = 

A:D (N0, N2)=B: D (N0, N3) =C: D (N0,N4)=D 

IF D(N0,CD)=N0 THEN 150 

FOR E=N1 TO N4:REST0RE 1 0000+D ( E-N 1 , CD ) 

:READ A,B,C,D:D(E,N1)=A:D(E,N2)=B:D(E,N 

3) =C: D (E, N4)=D 

IF D(E,CD)=N0 THEN 150 

NEXT E 

IF CD=N1 THEN 200 

TRAP 100 

FOR B=l TO CD-1:F0R A=0 TO 4:C=D(A,N1): 

D(A,N1)=D(A,N2):D(A,N2)=D(A,N3):D(A,N3> 

=D (A, N4) : D (A, N4) =C: NEXT A:NEXT B 

TRAP 40000 

GOSUB 31000:GOSUB 9100 



BI 


107 


CP 


110 


GM 


1 15 


DH 


120 


DE 


125 


BI 


130 


CJ 


150 


GB 


153 


MC 


155 


HH 


156 


IK 200 
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JL 205 ST = STICK(0) : IF ST<>15 AND MFO0 THEN GO 

SUB 9000: KC=KC-1 : GOTO N205 
NL210 IF ST=11 THEN CD = CD+1:IF CD>4 THEN CD = C 

D-4 
LA215 IF ST = 7 THEN CD = CD-1:IF CD< 1 THEN CD = CD 

+ 4 
NP 220 IF ST=13 THEN CD = CD + 2:IF CD>4 THEN CD = C 

D-4 
GH 230 IF ST=14 AND D(N0,N1)<>0 THEN CR = D(N0,N 

1 ) 
AH 240 GOSUB 15000 

AG 250 ON (ST=15)+1 GOTO 100,N205 
PC 300 IF LEN(V0*><3 THEN V0* ( LEN ( V0* > + 1 ) = " ": 

GOTO 300 
AB 302 ? " <CLEAR> ";: GOSUB 6 : V0*= V* ( LEN ( V* ) -2 ) : 

V*=V* (1,3) 
GP 305 IF V$<>"lkv" THEN 400 
JK310 IF V0*O"ylc" THEN 350 
LH315 FOR A=l TO 19:IF 0(A)<>CR THEN NEXT A:6 

OTO 349 
HP 320 ? "The box contains a: " ; : P* = 0* ( ( A- 1 ) * 1 

5+1 , (A-l ) *15+15) 
NJ321 IF P*(l,l)=" " THEN P* = P* ( 2 ) : GOTO 321 
KG 325 GOSUB 4:G0T0 N205 
IB 347 ? " <CLEAR> <DOWN>You can't do that!":FOR 

A=l TO 200:NEXT A:GOTO N205 
NH 348 ? " {CLEAR} {DOWN)You don't have that!":F 

OR A=l TO 200:NEXT A:? "{ CLEAR} ";: GOTO 

N205 
CB 349 ? " {CLEAR} (DOWN} I don't see that here!" 

: FOR A=l TO 200:NEXT A:? " {CLEAR} " ; : GOT 

N205 
LH 350 IF <V0*O"lxp" AND V0*O"lli") OR CR<>4 

3 OR CDON1 THEN 349 
AP 355 IF 0(17)00 THEN P*="bLF WLM'G SZEV GSV 
PVB!":GOSUB 4:F0R A=l TO 200:NEXT A:? 

" {CLEAR} " ; : GOTO N205 
BA 360 CR = 359:G0T0 100 
HE 400 IF VtO"tvg" THEN 450 
BH 405 FOR A = N0 TO 1 8 : I F V0* = O* ( A* 1 5+ 1 3 , A* 1 5+ 1 

5) AND 0(A+N1)=CR THEN B=A:GOTO 425 
EO410 NEXT A: IF V0*="ylc" THEN ? "It is secur 

ely bolted to the floor. " : GOTO N205 
GP 420 GOTO 349 
LL 425 GOSUB 9000: IF MFO0 THEN GOSUB 9100:GOT 

O N205 
LJ 430 IF NO=10 THEN ? "You can carry no more. 

":GOTO N205 
BL 435 ? "OK. " : O (B + Nl ) =N0: N0 = N0 + N1 : GOTO N205 . 
HO 450 IF V$<>"ivz" THEN 510 
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KG 451 
MH 452 
GP 455 



JO 456 
PM 460 
JC 463 
HL 465 

KC 467 
HE 470 

FH 475 



LP 476 
CC 480 
FG 485 

EP 4 9 
HB 500 
KG 505 



LJ 506 
GK 510 

AB 512 

QL 515 

CF 520 

OF 525 

Ell 530 

HI 535 

HN 540 

LM 550 
JP 555 



LL 556 

KC 55 7 
FG 558 



IF V 
IF 
IF O 
IVUO 
IVZ6 
05 

IF V 
IF V 
IF 
SF1 = 
{DOW 
SOTO 
IF O 
P*=" 
M HK 
I, R 
BOTO 
IF V 
IF 

0(6) 

IF 

P*=" 

B B 

T IV 

SOTO 

IF V 

BRAP 

{CLE 

FOR 

HEN 

P* = 

IF P 

SOSU 

NEXT 

CONT 

CLOS 

#1 : 
IF V 
FOR 
5) A 
70 

IF V 
P*=" 
SUB 
IF V 
N ( 
IF V 

Pt = 
OU. " 



0*<>"ovg" THEN 
(7)<>N0 THEN 34 
(7)=N0 THEN P*= 
VXGRLM ORVH, {3 
xSSFOSF BSV DR 



460 

8 

"gl_ TVS DSVIV BSRMV 

SPACESJXZOO BL BSV T 

HV.":BOSUB 4:B0T0 N2 



0*="ovg 
0*<>"o 
(3) < >0 
SF1-1 : I 
N>gSV H 

8000 
(3) < >0 
{CLEAR} 
V00{3 S 
B HSLFO 

N205 
0*<>"o 
(6) < >0 



" THEN 
1" THEN 
OR CR<>2 
F SF1=0 
XILOO WR 

THEN 347 
gSRH YVR 
PACEB>LU 
W YV FHV 

2" OR 0( 
OR MF<>4 



(7)=-l:B0T0 N205 

4S0 

73 OR CDOl THEN 470 

THEN P*="{CLEAR} 

HZKKVZIH ! ! " : (3) =-1 



MT SSV WRHRMGVTIZBRL 
BSV DRAZIW aLILZHBV 
W DRHVOB ! ": BOSUB 4 

6)<>0 THEN 347 
THEN 500 



= -1 
(6) 
gSV 
SV 
ZW. 
N2 
*< > 
HIC 
AR} 
A=l 
535 

* ( ( 

* ( 1 
B 4 

A: 
INU 
E # 
GOT 
*< > 
A = N 
ND 



:SOTO 9500 
<>0 THEN 347 

RMHXIRKSRLM DRBSRM HSZOO KILBVX 
YVZIVI UILN SSV FMWVZW FKLM YVRM 
": BOSUB 4 
05 

"rme" THEN 550 

S N0:SOSUB 32676:P0KE 752,1:? ■■ 
{2 DOWN> INVENTORY" : ? " {9 M>" 

TO 19:IF O(A)<>0 AND 0<A)<>-2 T 

A-l ) *15+1 , (A-l) * 15+15) 

, 1)=" " THEN Pt = P$ (2) :BOTO 525 

? :? "C3 SPACESJPRESS rT i^iJ!:;: TO 

E" 

l-.OPEN #1,4,0, "K": BET #1, A: CLOSE 

O 100 

"kfg" AND VtO"wil" THEN 580 

TO 18:IF V0*=O* (A*15+13, A*15+l 

(O(A+N1)=0 OR 0(A+Nl)=-2) THEN 5 



0*="lhv" AND O(19)=0 AND 

gSV NLMTLLHV ZBBZXPH BSV 

4: O ( 19) =-Nl : BOTO 9500 

0$="orx" AND O(10)=N0 AND 

10)=-N1:BOTO 9500 

0*="nli" AND O(16)=N0 AND MF=8 THEN 

"gSV TFHG NLMHSVI LEVI-HBFUUH SRNHV 

:BOSUB 4: O C 16) =-Nl : SOTO 9500 



MF=9 THEN 
XLYIZ. ":B0 

MF=11 THE 



" 
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JC 559 IF V0$ = Ot ( A* 15+13, A*15+15) AND 0(A + N1) = 

-1 THEN 348 
CN 560 NEXT A:GOTO 348 
BL 570 FOR B = N1 TO 19: IF 0(B)=CR THEN ? "The h 

all is too crowded . " : GOTO N205 
PD 575 NEXT B : < A+N 1 > =CR : NO=NO-N 1 : ? "OK.":GaTO 

N205 
GO 580 IF V$<>"gsi" THEN 620 
HL581 IF V0*="ixs" AND TL= 1 AND MF = 56 THEN 0( 

5)=-l:G0T0 9500 
fid 582 IF V0*="vin" AND LL = N1 AND MF = 56 THEN O 

(8)=-Nl:G0T0 9500 

60SUB 9000 

IF V0*O"ili" THEN 600 

IF (Nl ) < >0 THEN 348 

? "gSV NRIILI HSZGGVIH RMGL NROORLMH LU 
GRMB KRVXVH ! " :0(N1)=-N1:N0 = N0-N1: GOSU 

B 4:G0T0 N205 

IF V0*<>"orm" THEN 616 

IF O(14)<>N0 THEN 348 

IF M(10)=CR THEN NO=NO-N 1 : GOTO 9500 

P$="gSV QZEVORM UORVH WLDM GSV SZOO ZMW 

{3 SPACES1HSZGGVIH ZTZRMHG GSV UZI DZOO 

!": < 14) =-Nl : NO = NO-Nl : GOSUB 4:GOTO N205 

IF V0*<>"mxv" THEN 555 

IF O(9)<>N0 THEN 348 

IF M(2)=CR THEN NO=NO- 1 : O ( 9 ) =-N 1 : GOTO 9 

500 

NO=NO-Nl:? "OK.":GOTO N205 

IF V*="fmo" THEN 350 

IF V*<>"j-Fr" THEN 670 

GRAPHICS N0:POSITION 4,12:7 "Are you su 

re you want to quit"; : INPUT A*:IF A* ( 1 , 

1)="N" THEN 100 

IF flt(l,l)<>"Y" THEN 645 

GRAPHICS N0:POSITION 4,12:? "Would you 

like to play again"; : INPUT A*:IF A* ( 1 , 1 

)="Y" THEN RUN 

GRAPHICS N0:END 

IF V*<>"dvz" THEN 715 

GOSUB 9000: IF V0$<>"rmt" THEN 695 

IF O(ll)=0 THEN ? "OK. " : ( 1 1 ) =-2: GOTO N 

205 
CJ 685 IF ( 1 1 ) =-2 THEN ? "You are already wea 

ring it.": GOTO N205 
HH 690 GOTO 348 

KL 695 IF V0*<>"nli" THEN 347 
EJ 700 IF O<16)=0 THEN ? " OK . " : O ( 1 6 ) =-2 : GOTO N 

205 
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OJ 583 


Jfl 585 


HE 590 


f!C 595 


KH 600 


PF 605 


IK 610 


16 6 15 


LN 616 


HH 617 


BB 618 


Kfl 619 


CL 620 


60 630 


JE 645 


FD 650 


LJ 655 


HH 660 


IE 670 


EC 675 


EG 680 
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CH 705 

HA 710 
HP 7 15 
JC 720 

JB 725 

HC 730 
DI 735 

m 740 

NC 745 



H'D 750 

LO 755 

DB 760 

EI 765 

KG 770 

HH 775 



UK 780 



HH 785 



KH 790 



BH 79 5 



AND V*<>"rmt 
THEN 755 



AND V*<>"yfi 



IF 0(16)=-2 THEN ? "You are already wea 
ring it.": GOTO N205 
GOTO 348 

IF V*<>"ivn" THEN 735 

IF V0$="rmt" AND 0<ll)=-2 THEN 7 "OK.": 
( 1 1 ) =0: GOTO N205 

IF V0*="nli" AND 0(16)=-2 THEN ? "OK.": 
O<16)=0:GOTO N205 
GOTO 348 
IF V*<>"ort" 
" THEN 805 
IF V0*O"xsv 
IF O(12)=0 THEN Pt="gSV 
ZMW TLVH LF6.":G0SUB 4 
1* (MN=0) : GOTO N205 
GOTO 248 

IF V0*<>"ixs" THEN 775 
IF O(12)=0 AND O(5)=0 THEN ? "OK 
N-1:O(12)=-1*(MN=0) : TL=1 : GOTO N205 
IF 0(12)00 THEN P*="bLF WLM'G SZEV NZG 
XSVH.":G0SUB 4: GOTO N205 
GOTO 348 

IF V0*="o 1" AND O(3)=0 AND O(12)=0 THE 
N P*="rG YFIMH DRGS Z YIROORZMG UOZNV. " 
:GOSUB 4: 0<3) =-1 : GOTO N205 

IF V0$="o 2" AND O(6)=0 AND O(12)=0 THE 
N P*="rB YFIMH DRGS Z YIROORZMG UOZNV." 
:GOSUB 4: <6) =-1 : GOTO N205 

IF V0$="ovg" AND O(7)=0 AND 0(1 
N P$="rB YFIMH DRGS Z YIROORZMG 
:GOSUB 4: (7) =-1 : GOTO N205 
IF (V0*="gvi" OR V0$="vzi"> AND 
AND TL=1 OR (MN>0 AND 0(125=0) 
00 
IF V0$="vim" AND 



NZGXS UOZIVH FK 
MN=MN-1 : ( 12) =- 



MN = M 



) =0 THE 
UOZNV. " 

M (2) =CR 
THEN 95 



IF V0$="vim" AND MN>0 AND O(B)=0 AND 
12)=0 THEN P$="gSV OZMGVIM XLMGZRMH ML 
UFVO. " : GOTO N205 



PC 


800 


IK 


805 


oc 


810 


DG 


815 


JG 


820 


KP 


825 


CP 


830 



O(4)=0 THEN ? 



'OK, 



; ( 



GOSUB 9000:GOTO 347 
IF V*<>"vzg" THEN 
GOSUB 9000 
IF V0$= n llw" AND 
4)=-l:G0T0 N205 
IF V0*="arx" AND 0(101=0 
CCCHHH! ! !":O(10)=-1:GOTO 
IF V0*O"lhv" THEN 835 

IF 0(191=0 THEN Pt="rB TVG'H HGFXP RM B 
LFI NLFGS ZMW BLF IVNLEV R6. , 
NLMTLLHV. ": GOSUB 4-.G0T0 N205 



THEN 
N205 



? "YYEEEC 



1MV DVG 



~ 
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FI 845 


HF 850 


NB 855 


OH 860 


HK 865 


IG 870 



EB 835 IF V*=">:gs" AND V0t="osf " AND 0(7)<1 TH 

EN CR=2: CD=3: GOTO 100 
PN 840 IF V*="hl M AND M(6)=0 THEN CR = 5B:CD = N1 
:BOTO 100 

IF V$="zgg" OR V$="pro" THEN 9000 
IF V*<>"dze" THEN 870 

IF V0*="zmw" AND O(15)=0 AND MF=1 THEN 
9500 

GOSUB 9000 
GOTO 347 

IF V*="slo" AND V0*="ili" AND MF=3 THEN 
9500 
HL 872 IF V*="slo" AND V0*<>"ili" THEN SOSUB 9 

000:GOTO 347 
PG 875 IF V*<>"hdr" THEN GOTO N205 
HL 880 IF V0*="liw" AND MF = 5 THEN 9500 
11885 IF V0*="tvi" AND MF = 6 THEN 9500 
!G 890 IF V0*="ixs" AND MF = 7 THEN 9500 
OC 900 GOSUB 9000 
LH 905 GOTO N205 

PE B000 GRAPHICS 0:7 "<3 D0WN><:5 SPACESJYou ha 
ve won!":? " £2 DOWN>You are now standi 
ng just on the edge o-f the trap door y 
ou fell through." 
HP 8010 ? "{DOWNJDo you want to jump back into 
the pit":INPUT V*:IF V*(1,1)="Y" THEN 
RUN 
? " £2 DOWNJCongratulations ! ! " : END 
FOR A=N0 TO N10:IF V0*=M* < A* 1 5+ 1 3 , A* 1 5 
+15) AND M(A+N1)=CR THEN 9020 
IF V0*="gvi" AND M(A+N1)=CR THEN 9020 
NEXT A: KC=KC+1 : IF KC=3 THEN 9020 
IF MF=0 THEN KC=0 
RETURN 

POP :GRAPHICS 0:? " < 3 D0WN>{7 SPACES>Y 
ou are dead!!":? " {3 DOWN>Would you li 
ke to play again" 

INPUT V*:IF Vt(l, 1)="Y" THEN RUN 
END 

FOR A=N0 TO 10: IF M(A + N1X>CR THEN NEX 
T A:GOTO 9125 
BJ9105 POKE 657,0:? "You're being attacked by 

a " ; : P*=M* (A* 15+1 , A*15+15) 
OJ9110 IF P*(l,l)=" " THEN P* = P* (2, LEN (P*) ) : I 

F LEN(P$) >=2 THEN 9110 
IE 91 15 GOSUB 4 

AD9120 ? "defend your se 1 f . " : MF = A+ 1 
NF9125 IF CRO303 OR CD<>1 THEN 9140 
AK9130 COLOR 2:PL0T 1 02 , 64 : DRA WTO 102,17:DRAW 
TO 55, 17: POSITION 55,64 
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BH 8020 


IG 9000 


PG 9005 


PK 


9010 


IF 


90 1 2 


KP 90 15 


II 


9020 


PK 


9025 


CD 


9030 


AF 
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9135 
9140 

9145 

9150 
9500 



PJ 9505 



ML 9510 

EH 95 15 



NC 
PF 
JD 
EP 
IJ 
IK 
LJ 
IE 
IK 
NC 
MB 
MB 
ML 
HK 
MP 
LJ 
LI 
LL 
MA 
ML 
A6 
MP 
10 
IP 
MG 
NB 
NA 
MK 
PL 
CI 
IK 
JA 
MH 
MO 
MJ 
AM 
BC 



95B5 

9590 

9999 

10000 

10002 

10003 

1001 1 

10012 

10013 

10014 

10015 

10016 

10017 

10018 

10019 

10020 

10021 

10022 

10023 

10026 

10027 

1002B 

10032 

10033 

10034 

10037 

10038 

10039 

10040 

10041 

10042 

10043 

10044 

10045 

10046 

10 4 7 

10048 



POKE 
IF CR 
COLOR 
O 39, 
POKE 
? "Th 
15) 
IF P* 
F LEN 
GOSUB 
IF MF 
SVIH 
LLN, 
M (MF) 
GOTO 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



765,2:XIO 1 8 , #6 , , , " S " : RETURN 
<>273 OR CDOl THEN RETURN 

2:PL0T 126, 79: DRAWTO 126,1:DRAWT 
l:POSITION 39,79 

765,2:XI0 1 8 , #6 , , , " S " : RETURN 
e " ;:P*=M*((MF-1>*15+1, (MF-1)*15+ 



(1,1)=" 

(P*) >=2 

4: ? 



is dead! 
=6 THEN P*= 
'rU BLF DZMGGL 
QFHG HZB 



" THEN P* = P* (2, LEN (P*) ) : I 
THEN 9505 



yVULIV SV WRVH SV NFG 
OVZEV GSV XOLHVW I 
urnu rtiD HL.":GOSUB 4 
=N0:MF=N0:KC=N0 
N205 



0,0,0,0 
0, 0, 32, 3 
0, 2, 33, 
0,0,41, 12 
0,11,0,0 
0, 0, 43,0 
0, 0, 44, 15 
0, 14, 0, 16 
0, 15, 46, 
0, 0, 47, 18 
0,17,0,19 
0, 18, 49, 
0, 0, 50, 21 
0, 20, 0, 22 
0, 21 , 0, 23 
0,22,53,0 
0, 0, 56,27 
0,26,57,28 
0, 27, 58, 
2, «L, 62,0 
3, 0, 0, 34 
0, 33, 64, 
0, 0, 67, 38 
0, 37,0, 39 
0, 38, 0, 40 
0, 39, 70, 41 
1 1 , 40, 71 , 42 
0, 41,0,0 
0, 0, 73, 
14,0, 74, 
0, 0, 75,46 
16, 45, 0, 
17, 0, 77, 48 
0, 47, 78, 49 



"I 
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EH 10049 


DATA 


19, 48, 79, 50 


DB 10050 


DATA 


20, 49, 80, 51 


MB 10051 


DATA 


0, 50, 0, 52 


MG 10052 


DATA 


0, 51 , 82, 


MH 10053 


DATA 


23, 0, 83, 


MO 10054 


DATA 


0, 0, 84, 55 


m 10055 


DATA 


0, 54, 0, 56 


MM 10056 


DATA 


26, 55, 0, 


JE 10057 


DATA 


27, 0, 0, 


JG 10058 


DATA 


28, 0,0,0 


MF 10062 


DATA 


32, 0, 0, 63 


HK 10063 


DATA 


0, 62, 0, 64 


EB 10064 


DATA 


34, 63, 94, 65 


NC 10065 


DATA 


0, 64, 95, 


NE 10067 


DATA 


37, 0, 0, 68 


NJ 1006S 


DATA 


0, 67, 0, 69 


NO 10069 


DATA 


0, 68, 99, 


IK 10070 


DATA 


40, 0, 0, 


IN 10071 


DATA 


41,0,0,0 


PF 10072 


DATA 


0,0, 102, 73 


AE 10073 


DATA 


43, 72, 0, 74 


MM 10074 


DATA 


44, 73, 0, 


DH 10075 


DATA 


45, 0, 105, 76 


NG 10076 


DATA 


0, 75, 0, 77 


NF 10077 


DATA 


47, 76, 0, 


AD 10078 


DATA 


48, 0, 108, 


AG 10079 


DATA 


49, 0, 109, 


MF 10080 


DATA 


50, 0, 0, 81 


PD 1008 1 


DATA 


0, 80, 111,0 


PE 10082 


DATA 


52, 0, 112,0 


PH 10083 


DATA 


53, 0, 113,0 


PK 10084 


DATA 


54, 0, 114,0 


AB 10085 


DATA 


0,0, 1 15, 86 


NJ 10086 


DATA 


0, 85, 0, 87 


NH 10087 


DATA 


0,86,0,80 


AI 10088 


DATA 


0, 87, 118,0 


PN 10094 


DATA 


64, 0, 124, 


NH 10095 


DATA 


65, 0, 0, 96 


AF 10096 


DATA 


0, 95, 126, 


AK 10097 


DATA 


0,0, 127, 98 


AL 10098 


DATA 


0, 97, 12B, 


6N 10099 


DATA 


69, 0, 129, 100 


JC 10100 


DATA 


0, 99, 0, 


BJ 10 10 1 


DATA 


0,0, 131 , 102 


FB 10102 


DATA 


72, 101,0, 103 


IC 10103 


DATA 


0, 102, 133, 104 


LI 10104 


DATA 


0, 103, 0, 


PK 10105 


DATA 


75, 0, 135, 


LO 10 106 


DATA 


0,0,0, 107 


CJ 10107 


DATA 


0, 106, 137, 
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AD 10108 


DATA 


78, 0, 138, 


JJ 10109 


DATA 


79, 0, 0, 


LG 10110 


DATA 


0, 0, 140, 


FF 10111 


DATA 


81,0, 141 , 1 12 


FF 10112 


DATA 


82, 111,0,113 


FL 10113 


DATA 


83, 1 12, 143,0 


PK 10114 


DATA 


84, 0, 144,0 


PN 10115 


DATA 


85, 0, 145,0 


CL 10116 


DATA 


0, 0, 146, 1 17 


CM 10117 


DATA 


0,116, 147, 


AG 10118 


DATA 


88, 0, 148,0 


PL 10124 


DATA 


94, 0,0, 125 


CH 10125 


DATA 


0, 124, 0, 126 


PP 10 126 


DATA 


96, 125, 0, 


JJ 10127 


DATA 


97,0, 0, 


HF 10 128 


DATA 


98, 0, 158, 129 


NL 10 129 


DATA 


99, 128, 159, 130 


IL 10130 


DATA 


0, 129, 160, 131 


BK 10131 


DATA 


101 , 130, 0, 


CF 10132 


DATA 


0, 0, 162, 133 


II 10133 


DATA 


103, 132,0, 134 


JC 10134 


DATA 


0, 133, 164, 135 


PM 10135 


DATA 


105, 134, 165, 136 


CP 10136 


DATA 


0, 135, 166,0 


DA 10137 


DATA 


107, 0, 167,0 


KA 10138 


DATA 


108,0, 16B, 139 


JN 10139 


DATA 


0, 138, 169, 140 


CD 10140 


DATA 


1 10, 139, 0, 


BP 10141 


DATA 


111,0,0, 142 


10 10142 


DATA 


0, 141 , 172, 143 


CD 10143 


DATA 


113, 142,0,0 


CK 10144 


DATA 


114,0, 174,0 


CN 10145 


DATA 


1 15,0, 175, 


DA 10146 


DATA 


116,0, 176,0 


ME 10147 


DATA 


117,0, 0,0 


DG 10148 


DATA 


118,0, 178,0 


CI 10151 


DATA 


0,0, 181, 152 


CJ 10 152 


DATA 


0, 151 , 182, 


CO 10 153 


DATA 


0,0, 183, 154 


CP 10154 


DATA 


0, 153, 184,0 


m 10157 


DATA 


0,0,0, 158 


DF 10158 


DATA 


128, 157,0,0 


DM 10159 


DATA 


129,0, 189,0 


CC 10160 


DATA 


130,0,0, 161 


JB 10161 


DATA 


0, 160, 190, 162 


PM 10162 


DATA 


132, 161 , 192, 163 


CN 10163 


DATA 


0, 162, 0, 164 


JK 10164 


DATA 


134, 163, 194, 


ME 10165 


DATA 


135, 0, 0,0 


DG 10166 


DATA 


136, 0, 196, 
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KI 10167 


DATA 


137,0, 197, 168 


KK 10168 


DATA 


138, 167, 198, 


DE 10 169 


DATA 


139, 0, 0, 170 


JC 10170 


DATA 


0, 169, 200, 171 


CK 10171 


DATA 


0, 170, 0, 172 


IN 10172 


DATA 


142, 171 , 202, 


CL 10173 


DATA 


0, 0, 203, 174 


CP 10174 


DATA 


144, 173, 0, 


CN 10175 


DATA 


145,0,205,0 


DH 10176 


DATA 


146, 0, 0, 177 


ON 10177 


DATA 


0, 176, 0, 178 


OL 10178 


DATA 


148, 177, 0, 


CE 10 18 1 


DATA 


151 ,0,211,0 


JD 10182 


DATA 


152, 0, 212, 183 


JF 10 183 


DATA 


153, 182, 213, 


JL 10 184 


DATA 


154, 0, 214, 185 


DJ 10 185 


DATA 


0, 184, 0, 186 


DF 10186 


DATA 


0, 185, 216, 


DP 10187 


DATA 


0, 186, 0, 188 


DL 10188 


DATA 


0, 187, 218, 


KG 10189 


DATA 


159, 0, 219, 190 


CP 10 190 


DATA 


0, 189, 220,0 


CH 10191 


DATA 


161 , 0, 221 , 


HE 10192 


DATA 


162, 0, 0, 


HK 10193 


DATA 


0,0,0, 194 


AH 10 194 


DATA 


164, 193, 224, 195 


KF 10195 


DATA 


0, 194, 225, 196 


DL 10196 


DATA 


166, 195, 0, 


DJ 10197 


DATA 


167, 0, 227, 


ED 10198 


DATA 


168, 0, 0, 199 


D6 10199 


DATA 


0, 198, 0, 200 


IP 10200 


DATA 


170, 199, 0, 201 


BK 10201 


DATA 


0, 200, 231, 


CE 10202 


DATA 


172, 0, 232,0 


CF 10203 


DATA 


173, 0, 0, 204 


CD 10204 


DATA 


0, 203, 234,0 


CN 10205 


DATA 


175, 0, 235,0 


CL 10206 


DATA 


0, 0, 236, 207 


CK 10207 


DATA 


0, 206, 0, 208 


CP 10208 


DATA 


0, 207, 238, 


FK 10209 


DATA 


0,0,0,0 


BM 10210 


DATA 


0, 0, 240, 21 1 


IF 1021 1 


DATA 


181 , 210, 0,212 


1L 10212 


DATA 


182, 21 1 , 242, 


CI 10213 


DATA 


183,0, 0,214 


JB 10214 


DATA 


184, 213,0, 215 


JC 10215 


DATA 


0, 214, 245, 216 


CP 10216 


DATA 


186, 215,0,0 


H6 10217 


DATA 


0, 0, 247, 


KF 10218 


DATA 


188, 0, 248, 219 
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6A 10269 DATA 0,0,0,0 

CF 10270 DATA 0,0,300,271 

JE 10271 DATA 241,270,0,272 

CJ 10272 DATA 0,271,302,0 

MB 10273 DATA 0,0,303,0 

JL 10274 DATA 244,0,304,275 

KB 10275 DATA 0,274,305,276 

DI 10276 DATA 246,275,0,0 

DN 10277 DATA 247,0,0,278 

KN 10278 DATA 0,277,308,279 

EB 10279 DATA 249,278,0,0 

CE 10280 DATA 250,0,310,0 

JD 10281 DATA 251,0,311,282 

JM 10282 DATA 252,281,0,283 

HI 10283 DATA 0,282,0,0 

DE 10284 DATA 0,0,314,285 

DM 10285 DATA 0,284,0,286 

DP 10286 DATA 0,285,0,287 

LA 10287 DATA 257,286,0,288 

EF 10288 DATA 0,287,0,289 

DP 10289 DATA 0,288,0,290 

DC 10290 DATA 0,289,320,0 

HE 10291 DATA 261,0,0,0 

DE 10292 DATA 262,0,0,293 

JN 10293 DATA 263,292,323,0 

KD 10294 DATA 264,0,324,295 

DP 10295 DATA 0,294,0,296 

KJ 10296 DATA 266,295,326,0 

DM10297 DATA 267,0,327,0 

NC 10298 DATA 268,0,0,0 

BP 10300 DATA 270,0,0,301 

BL 10301 DATA 0,300,0,302 

IL 10302 DATA 272,301,332,0 

JB 10303 DATA 273,0,333,304 

JD 10304 DATA 274,303,334,0 

DA 10305 DATA 275,0,335,0 

HG 10307 DATA 0,0,337,0 

DH 10308 DATA 278,0,0,309 

JJ 10309 DATA 0,308,339,310 

JA 10310 DATA 280,309,340,0 

CF 10311 DATA 281,0,0,312 

CD 10312 DATA 0,311,342,0 

CI 10313 DATA 0,0,343,314 

AA 10314 DATA 284,313,344,315 

CK 10315 DATA 0,314,0,316 

JK 10316 DATA 0,315,346,317 

JO10317 DATA 0,316,347,318 

KC 10318 DATA 0,317,348,319 

CN 10319 DATA 0,318,0,320 

PK 10320 DATA 290,319,350,321 
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IK 10321 


DATA 


0,320,351, 322 


CG 10322 


DATA 


0, 321 , 352, 


JJ 10323 


DATA 


293, 0, 353, 324 


JJ 10324 


DATA 


294, 323,0,325 


CN 10325 


DATA 


0,324, 0, 326 


KD 10326 


DATA 


296, 325, 356, 


DM 10327 


DATA 


297, 0,357, 


MM 10328 


DATA 


0,0, 358 , 


CF 10332 


DATA 


302, 0,0, 333 


C6 10333 


DATA 


303, 332, 0, 


CL 10334 


DATA 


304, 0, 0,335 


CM 10335 


DATA 


305, 334,0, 


DG 10337 


DATA 


307, 0, 367, 


DN 1033B 


DATA 


0, 0, 36B,339 


DI 10339 


DATA 


309, 338,0, 


IH 10340 


DATA 


310, 0, 370, 341 


CJ 1034 1 


DATA 


0, 340, 371,0 


CK 10342 


DATA 


312,0, 372, 


CN 10343 


DATA 


313, 0, 373,0 


JM 10344 


DATA 


314,0, 374,345 


DD 10345 


DATA 


0,344, 0, 346 


KC 10346 


DATA 


316, 345, 376, 


DJ 10347 


DATA 


317, 0, 377,0 


KM 1034B 


DATA 


318,0, 378, 349 


DG 10349 


DATA 


0, 348, 0, 350 


JH 10350 


DATA 


320, 349, 380, 


CK 10351 


DATA 


321 ,0, 381 , 


CN 10352 


DATA 


322, 0, 382, 


DA 10353 


DATA 


323, 0, 383, 


UK 10354 


DATA 


0, 0, 384,0 


DK 10355 


DATA 


0, 0, 385,356 


KE 10356 


DATA 


326, 355,0, 357 


KK 10357 


DATA 


327, 356,387,0 


DP 10358 


DATA 


328, 0, 388,0 


MD 10360 


DATA 


13,0, 43,0 


DP 10367 


DATA 


337,0, 397, 


EA 10368 


DATA 


338,0, 0,369 


LB 10369 


DATA 


0, 368, 399, 370 


DC 10370 


DATA 


340, 369,0,0 


JD 10371 


DATA 


341 , 0, 401 ,372 


CP 10372 


DATA 


342, 371 ,0,0 


CN 10373 


DATA 


343, 0, 403, 


JP 10374 


DATA 


344, 0,404, 375 


DM 10375 


DATA 


0,374, 0, 376 


KM 10376 


DATA 


346, 375,0, 377 


LA 10377 


DATA 


347, 376, 0, 378 


CA 10378 


DATA 


348,377,408,379 


KM 10379 


DATA 


0,378,409, 380 


JK 10380 


DATA 


350, 379, 410,0 


CK 10381 


DATA 


351,0,411, 



- 
- 

- 



- 
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DE 10382 DATA 352,0,0,383 

JN 10383 DATA 353,382,413,0 

DD 10384 DATA 354,0,414,0 

DN 10385 DATA 355,0,0,386 

DL 10386 DATA 0,385,416,0 

DN 10387 DATA 357,0,417,0 

DP 10388 DATA 358,0,418,0 

DD 10389 DATA 389,389,389,389 

ES 10397 DATA 367,0,0,398 

EL 10398 DATA 0,397,0,399 

EK 10399 DATA 369,398,0,0 

LI 10400 DATA 0,0,0,401 

IJ 10401 DATA 371,400,0,402 

CF 10402 DATA 0,401,416,0 

MD 10403 DATA 373,0,0,0 

MF 10404 DATA 374,0,0,0 

hC 10405 DATA 0,0,0,406 

CN 10406 DATA 0,405,0,407 

Dft 10407 DATA 0,406,0,408 

DI 10408 DATA 378,407,0,0 

ftP 10409 DATA 379,0,0,0 

LP 10410 DATA 380,0,0,0 

CI 10411 DATA 381,0,0,412 

CE 10412 DATA 0,411,0,413 

CM 10413 DATA 383,412,0,0 

DB 10414 DATA 384,0,0,415 

CN 10415 DATA 0,414,0,416 

AH 10416 DATA 386,415,402,417 

KF 10417 DATA 387,416,0,418 

DL 10418 DATA 388,417,0,0 

CN 10419 DATA 389,389,389,389 

IE 15000 IF PEEK (764) =255 THEN RETURN 

16 15005 V0*=" " : C=l : ? "<CLEAR>"; 

DH 15010 INPUT V0$:GOTO 300 

NB 20000 DIM B* ( 15) ,SP* (15) ,0* (300) , M* (165) ,0( 

20) ,M ( 1 1 ) :SP*="<15 SPACES} " : RESTORE 25 

000 
NF 20005 FOR A = N1 TO 19:READ B : O ( A > =B : READ A* 
MD 20010 GOSUB 21000: 0* ( (A-Nl ) *15 + N1 , (A-Nl ) *15 

+15)=At:NEXT A 
ML 20050 FOR A = N1 TO 1 1 : READ B : M ( A ) =B : READ A* 
MG 20060 SOSUB 2 1 000 : M* ( ( A-N 1 ) * 1 5 + N 1 , ( A-N 1 ) * 1 5 

+15)=A*:NEXT A 
NJ 20100 FOR A = TO 4:READ B , C , D : P ( A ) =B : P 1 ( A ) = 

C: PD (A) =D: NEXT A 

RETURN 

IF LEN(A*)<15 THEN B$ = SP$ ( 1 , 1 5-LEN ( A* 

) ) :B*(LEN(B*)+1)=A*:A*=B* 

RETURN 



NE 20200 


OP 


21000 


NI 


21005 
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BD 25000 

OL 250 10 

FC 25020 

FA 25050 

NF 25060 
IK 25100 
FQ 31000 

Jtt 31005 

ED 3 1 1 

PC 3 1 1 1 

PG 3 1 1 3 

JH 31014 

DC 3 1 1 9 
GF 31020 
EN 31025 

EF 31050 



EC 31055 

HE 31075 

PM 31 100 

PF 31 125 



JO 31 130 
GF 31 150 
NP 31 175 

LC 3 1 180 

DI 31 185 
IP 31200 
HG 31225 



DATA 126, nri i 1 i 
loo 1 , 258 , yzhp v 
4 , hx i 1 oo 2 
DATA 106,hnzao 
8,hroevi ozmxv, 
nztrx irmt, 307, 
DATA 57, nztrx w 
orm, 403, dzmw, 40 
ow pvb, 110, yzhp 
DATA 2?5,nlmtll 
vzi , 340,yzhi~orh 
wi z 1 1 m , 79, hsz wl 
DATA 69, iihg nl 
zmg sbwiz, lBl,e 
DATA 241 , 332, 1 
8,419, 1 , 298, 354 
IF D (N0, Nl ) < >N0 
PLOT 38,N0:DRAW 
IF D(N0,N4)ON0 
TO 159, N0 
IF D(N0,N2)<>N0 
O N0,N0 
IF D(N0,N4)=N0 
O 127,79 
IF D<N0,N2)=N0 

38, 79 
SOTO 32015 



,71, nztrx hdliw, 13,hxi 
g lu ul 1 w, 255, gl i xs, 35 




vg 1 u ul 1 w 

hv, 73, wqrmmr , 236, dvi vy 

p,382,hkvxgiv, 116, i vw 

d,367, lxsivqvoob 

mhgvi , 378, xlyiz , 286, tr 

rnkriv 

343, 206, 3, 384, 409, 1,23 

,3 

THEN 31020 
TO 127, N0 

THEN PLOT 127,N0:DRAW 

THEN PLOT 38,N0:DRAWT 
THEN PLOT 127,N0:DRAWT 
THEN PLOT 38,N0:DRAWTO 



IF D <N1 



PLOT 

AWTO 

PLOT 

AWTO 

O 54,65 

PLOT 30, 

IF D (Nl , 



N2) < >N0 

DRAW 

BOTO 

30, N0: DRAW 

54, 16: IF D 



38, N0: 
54, 65: 



65: DRAW 
N4) < >N0 
PLOT 119,N0:DRA 
:DRAWTO 103,65: 
PLOT 127,0:DRAW 
DRAWTO 103, 16: I 
AWTO 103,65 
PLOT 127,65:DRA 
IF D(N1 , Nl ) < >N0 
PLOT 54, 16: DRAW 
N0 THEN DRAWTO 
PLOT 103,65:DRA 
N0 THEN DRAWTO 
GOTO 31900 

rem mm^nsLm£iiiii: 

IF D(N2,N2)ON0 



THEN 31050 
TO 54,16:PL0T 40,79:DR 

31075 
TO 30,79:PLOT 30,16:DR 
(N1,N1)<>N0 THEN DRAWT 

TO 54,65 

THEN 31125 
WTO 103,16:PLOT 117,79 
GOTO 31150 

TO 127,79:PL0T 127,16: 
F D(N1,N1)ON0 THEN DR 

WTO 103,65 

THEN 31200 
TO 103,16:IF D(N1,N4)= 
103, 65 

WTO 54,65:IF D(N1,N2)= 
54, 16 



THEN 31275 
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DB 31250 
EO 31275 



EF 31280 
GH 31300 
JC 31325 

MF 31350 



350 

PLOT 103,65: 



HB 31355 

HI 31375 

IJ 31400 

IK 31405 

CP 3 1 4 1 

JN 31425 

60 31450 

EH 31475 

EH 31500 



EJ 31505 
HP 31525 
DH 31550 

FC 31575 



EK 31580 
HA 31600 
JO 31625 

IN 31630 

DI 31635 
KE 31650 
IB 31675 
EC 3 1 7 

FM 3 1725 



EF 31730 
HH 3 1 7 5 



8 66,53 

PLOT 54,53:DRAWT0 66,53 

IF D(N2,N4)<>N0 THEN 31 

PLOT 103, 16: DRAWTO 91,Z»<> wu. A »o, aJi 

DRAWTO 91,53:G0T0 31375 

PLOT 103, 16: DRAWTO 103,65:PLOT 103,28 

:DRAWTO 91,28:IF D(N2,N1)ON0 THEN DR 

AWTO 91,53 

PLOT 103. 53: DRAWTO 91.53 



D (N2, N4) =N 
D (N2, N2) =N 



31500 

36:PL0T 66,53:DR 



IF D<N3,N2)<>N0 THEN 

PLOT 66,2B:DRAWT0 74,36:PL0T 66,53:DR 

AWTO 74,45:B0T0 31525 

PLOT 66,28:DRAWT0 66,53:PL0T 66,36:DR 

AWTO 74,36:IF D(N3,N1)<>N0 THEN DRAWT 

O 74,45 

PLOT 66.45:DRAWT0 74.45 



AWTD 83,36: IF D(N3,N1)<>N0 

83,45 

PLOT 91,45:DRAWT0 83,45 

IF D(N3,N1)<>N0 THEN 31650 

PLOT 74,36:DRAWT0 83,36: IF 

THEN DRAWTO 83,45 

PLOT B3,45:DRAWT0 74, 

THEN DRAWTO 74,36 

GOTO 31900 



45: IF 



D (N3, N4) =N 
D (N3, N2) =N 
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EF 31775 


PLOT 83,36:DRAWT0 B0,39:PLOT 83,45:DR 




AWTO 80,42:GQTO 31825 


EK 31800 


PLOT 83,36:DRAWT0 83,45:PL0T 83,39:DR 




AWTO B0,39:IF D(N4,N1X>N0 THEN DRAWT 




80,42 


EC 3 1 8 5 


PLOT 83,42:DRAWT0 80,42 


ID 31825 


IF D(N4,N1)<>N0 THEN 31875 


JE 31850 


PLOT 77,39:DRAWT0 80,39:IF D<N4,N4)=N 




THEN DRAWTO 80,42 


JH 31855 


PLOT 80,42:DRAWTO 77,42:IF D(N4,N2)=N 




THEN DRAWTO 77,39 


DI 31860 


GOTO 31900 


LC 31875 


PLOT 78,40:PLOT 79,40:PLOT 78,41:PL0T 




79, 41 


NL 31900 


FOR A = N0 TO N4:IF P ( A ) =D ( N0 , N 1 ) THEN 




31913 


JN 31901 


IF P (A) =D (Nl , Nl) THEN 31915 


KA 31902 


IF P (A) =D (N2, Nl ) THEN 31925 


KD 31903 


IF P(A> =D <N3, Nl ) THEN 31935 


PJ 31904 


NEXT A:60T0 31980 


CJ 3 1 9 1 3 


PLOT 40,79:DRAWTO 54,65:DRAWT0 103,65 




:DRAWTO 117,79:PL0T 54,65:DRAWT0 54,7 




9:PL0T 103, 65: DRAWTO 103,79 


DM 3 1 9 1 4 


BOTO 31904 


JH 3 1 9 1 5 


PLOT 54,65:DRAWT0 66,53:DRAWT0 91,53: 




DRAWTO 103, 65:DRAWT0 54,65 


NF 3 1 9 1 7 


PLOT 66,53:DRAWT0 66,65:PL0T 91,53:DR 




AWTO 91,65 


DJ 31920 


GOTO 31904 


6N 31925 


PLOT 66,53:DRAWT0 74,45:DRAWT0 83,45: 




DRAWTO 91,53:DRAWT0 66,53 


NC 31927 


PLOT 74,45:DRAWT0 74,53:PL0T 83,45:DR 




AWTO 83,53 


DK 3 1930 


GOTO 31904 


GK 31935 


PLOT 74,45:DRAWT0 77,42:DRAWT0 80,42: 




DRAWTO 83,45:DRAWT0 74,45 


HP 31937 


PLOT 77,42:DRAWT0 77,45:PL0T 80,42:DR 




AWTO 80,45 


EC 31938 


GOTO 31904 


JD 31980 


FOR A=N1 TO 19:IF O(A)=N0 THEN 31984 


KK 31981 


IF (A) =D (N0, Nl ) THEN 31985 


KN 31982 


IF (A) =D (Nl , Nl ) THEN 31995 


JO 31983 


IF (A) =D (N2, Nl ) THEN 32005 


PC 31984 


NEXT A:GOTO 32010 


PD 31985 


COLOR Nl:PLOT 98 , 65 : DRAWTO 9B,77:DRAW 




TO 59,77:DRAWT0 59,65:DRAWT0 98,65:DR 




AWTO 91,58:DRAWT0 66,58 


HO 31987 


DRAWTO 59,65:C0L0R 3 


EH 31990 


GOTO 31983 



~ 
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HE31995 COLOR 1 : PLOT 86,53:DRAWT0 86,57:DRAWT 

O 71,57:DRAWT0 71,53:DRAWT0 B6,53:DRA 

WTO 83,50:DRAWTO 74,50 
MG31997 DRAWTO 71,53:C0L0R 3 
06 32000 GOTO 31983 
HM 32005 COLOR 1 : PLOT B1,45:DRAWT0 81,47:DRAWT 

76,47:DRAWTO 76,45:DRAWT0 81,45:PL0 

T 77,44 
LF 32007 DRAWTO B0,44:COLOR 3 
DP 32008 GOTO 31984 
NG 32010 RETURN 

DA32015 IF CR<>43 OR CDON1 THEN RETURN 
IH 32020 COLOR 2:PL0T 1 09 , 36 : DRAWTO 111,36:DRA 

WTO 1 13, 38: DRAWTO 113,41:DRAWT0 111,4 

3 
KC 32025 DRAWTO 1 09 , 43 : DRAWTO 1 07 , 4 1 : DRAWTO 10 

7,3B:DRAWT0 109,36 
EH 32030 PLOT 1 09 , 38 : DRAWTO 11 1,38: PLOT 109,39 

:DRAWTO 111,39:PL0T 1 1 , 40 : DRAWTO 110 

,41 
KP 32035 PLOT 1 1 7 , 79 : DRAWTO 1 1 7 , 1 6 : DRAWTO 74,1 

6:DRAWT0 74,79:C0L0R 3 

NJ 32040 RETURN 

PI 32676 POKE 764,12:POKE 16,64:P0KE 53774,64: 

INPUT A$:POKE 752,1:? " <!CLE AR > " ; : RETU 

RN 
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Double Brickout 



Grant Albrecht 



You'll need paddles and at least 40K RAM to play this fast-action 
game. 

"Double Brickout" has 11 different skill levels, so even a nov- 
ice (level 0) will be able to start right in and practice. If you 
think you're an expert, you might want to try level 10. As 
each screen of bricks is cleared, the computer increases the 
skill level by one. 

To begin play, just follow the screen prompts, press 
START, and use your paddle to prevent the balls from passing 
you by. 

Double Brickout 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FK 9 IF PEEK ( 106) >120 THEN POKE 106,120 

HA 10 BASE=3B912 

FP13 POKE 559,0:GOSUB 550:GOSUB 790:DIM SCORE 

(1),B(1),L(1) , R4*(40> , R5*<40) , R6*<40) , R7 

*(40> ,C(1) 
KD 20 POKE 1780, 180: SCORE (0) =0: SCORE ( 1 )=0: L = 20 

:GOTO 390 
H6 25 BASE=3B912 
GP 30 POKE 106, 120: GRAPHICS 1 + 16:P0KE 559,62:P 

OKE 756,140:POKE 1724,64 
NL 40 POSITION 2,1:? #6 ; " 7.****************& " : F 

OR 1=2 TO 21:P0SITI0N 2,1:? #6;"' 

{16 SPACES} ( ": NEXT I 

hp 50 x=usR(ADR("hEx<:[=>[^Y<:[5>[iiiaB{:DJHs<:[E}[iEacri! 

P3Ha<:T>£X>eE<H>rjH{:, }eE<:(=}EhBB5>!IIa]!< ,, ) ) 
06 51 REM above= "h X INV-CTRL-E E Y INV-C 

TRL-E E a G5 B CTRL-D INV-SPACE S INV-CTR 

L-Q EEScQHHQ CTRL-T 
HB 52 REM CTRL-X e H INV-CTRL-E E Q CTRL-, e E 

INV-CTRL-E Eh SH3EQra CTRL-." 
LN 70 COLOR 0:POKE 1 722 , : POS I T I ON 7,14:? #6;" 

|jJg:VJal:» "; P+1 : POSITION 3,23:? #6;" 

<5 SPACES>ready ! {5 SPACES>" 
PE80 POKE 1725,12:P0KE 53236,1: POKE 53249, 0:P 

OKE 53250, 0:FOR 1=1 TO 1 00 : X=255-PADDLE ( 

P):POKE 53248, X:NEXT I 
KE 90 POKE 1780, 180: POKE 1 78 1 , 1 1 : POKE 1782,11 

0:FOR 1=1772 TO 1774:P0KE I,1:NEXT I : POS 

ITION 6,23:? #6:"<:i0 SPACES> " 



208 



Chapter 5 



JF100 POSITION 7,14:7 #6;"£8 SPACES> ": RESTORE 
110:FOR 1=1712 TO 1719:READ X:POKE I,X 

:NEXT I:POKE 706,0:POKE 705,15 
BE110 DATA 24,2,76,60,0,0,1,0 

OD 120 T = RND(0)*3+1:POKE 1 7 1 6 , T : T = RND ( ) *3+ 1 
16 130 POKE 1727,0:POKE 1726,P:F0R 1 = 1 TO S0:X 

=USR (BASE) : SOUND 0,0,0,0:NEXT I 
NL 140 POKE 1727,1:P0KE 1717,T:P0KE 1719,1:P0K 

E 706, 15 
IJ 150 X = USR(BASE) : POKE 77,0: IF PEEK (53279 ) <>7 

THEN 390 
NH 160 SC0RE(P)=SC0RE(P)+PEEK(1722) : POKE 1722, 

0:IF PEEK(1724) THEN 220 
IK 170 J = 40 + 250*RND(0) : FOR 1 = 1 TO J : X=U5R (BASE 

) : X = USR(ADR ( " hH3tF>B2 £ IIP PUK B> SEE ' " > > : NE 

XT I: POKE 1727,0 
HH171 REM above="h HECTRL-F INV-SPACE 2 INV 

-CTRL-H m E INV-{=> E Q E3 CTRL-. " 
LD 180 X = USR(ADR( " hEX C[i>Q|aY C[aJ[iIIBB<D>BS CEJEGBc 

EEHHKT> <X>eGKrj}EfK, }eGK@>Gh8HS>EEG'" ) ) 
00 181 REM above="h E X INV-CTRL-E E i Y INV-C 

TRL-E E a E KB CTRL-D ■ S INV-CTRL-Q E LT_ 
3 c S CT H Q CTRL-T CTRL-X 
DL 182 REM e E INV-CTRL-E E Q CTRL-, e E INV-C 

TRL-E Eh8B3EEH CTRL- " 
A! 200 COLOR 0:POKE 1 724 , 64 : X = USR ( BASE > : I F PEE 

K(53279)<>7 THEN 390 
DC210 L (P) =L (P> -1 : POKE 1 729 , L ( P ): POKE 1727,1: 

X=USR (BASE) :SOTO 150 
MC 220 B(P)=B(P)-l:POKE 53248, : POS I T I ON 8,18: 

? #6; " BDEigrjBCaBEB " : POSITION 3,19:? #6;" 

rJEDE!<4 SPACES> ";5-B (0) ; " <5 SPACES} " ; 5-B 

(1 ) 
AL 230 POSITION 3,20:? #6 ; "H333K3 SPACES} ": PO 

SITION 3,21:? #6;"S3SJE" 

EI 235 POSITION 1 1 - ( L ( X 1 1 ) , 20 : ? #6;20-L(0);" 

":POSITION 17-(L(1)<1 1) ,20:? #6;20-L(l 
I . ii H 

' » 

DL 240 POSITION 9+ ( SCORE ( )< 1 ) + ( SCORE ( )< 1 00 ) 
,21:? #6;SC0RE (0) : POSITION 15+(SC0RE(1) 
<10) + (SCORE ( 1 X100) ,21 

AH 250 ? #6; SCORE ( 1 ): C (P) =PEEK ( 1724) 

FK 260 J = P*19+1:F0R 1=3 TO 18:L0CATE I,4,X:R4* 
( I+J) =CHR* (X) : LOCATE I,5,X:R5*(I+J) =CHR 
* (X) -.LOCATE I, 6, X 

BK 270 R6* ( I+J)=CHR* (X) : LOCATE I , 7 , X : R7* ( I + J ) = 
CHR* (X) :NEXT I : R4* ( 40 ) = " < , } " : R5* ( 40 ) = " 
<,}■' :R6*(40)="{, }":R7*(40)= "<:,}" 

PH 290 IF N THEN P=(P = 0):POKE 1726.P 
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OH 300 IF NOT B(P) THEN POSITION 6,14:? #6;"F 

ETT: C3«233":F0R 1 = 1 TO 800:NEXT I : GOTO 3 

90 
LJ310 POSITION 6,23:? #6; "press fire": IF PEEK 

(53279) <>7 THEN 390 
OH320 IF (PTRIG(0) AND P-0) OR (PTRIG(l) AND 

P) THEN 310 
FI 330 POSITION 6,23:? #6;"€10 SPACES> " : J-P* 19: 

IF FLAG AND N THEN FLAG=0:GOTO 30 
JE 340 I=P*19+4:P0SITI0N 3,4:? #6 ; R4* ( 1 , 1 + 15) : 

POSITION 3,5:? #6; R5» ( 1 , 1 + 15) 
JK 350 POSITION 3,6:? #6 ; R6* ( I , I + 15 ) : POS ITION 

3,7:? #6;R7*(I, 1+15) 
BF 360 POSITION 8,18:? #6;"C11 SPACES> " : POS I TI 

N 3,19:? #6;"C15 SPACES> " : POS I T ION 3,20 
HD370 ? #65"<:i5 SPACES} ": POSI T ION 3,21:? #6;" 

€16 SPACES>" 
NH 380 POKE 1724, C (P) : POKE 1 729 , L ( P) : GOTO 70 
PL 390 POKE 1729,L:GRAPHICS 17:F0R 1=53248 TO 

53250:POKE I,0:NEXT I:? #6:? #6:? #6;" 

CZ SPACES>double brickout" 
NL 400 ? #6;" <3 "Tlin U I |l| H IM | h H ■ I HHi ' #6 
BB410 POSITION 4,6:? #6;N+1;" PLAYER GAME":? 

#6:? #6 
6B420 ? #6;"t5 SPACES>PRESS d-SHUE" : ? #6;" 

€4 SPACES>FOR DIFFICULTY":? #6;" 

<.7 SPACES>SPEED=";20-PEEK(1729) ; " ":? 

*6 
OE 430 ? #6:? #6;"t5 SPACES>PRESS BHDEEM " I ? #6 

;"C5 SPACES>FOR ";1+(N»0);" PLAYER":? # 

6:? #6:? #6;" €5 SPACES>PRESS BEEBC " 
KO 440 ? #6;" €7 SPACES>TO PLAY":? #6:? #6:? #6 

;" UJMigKS SPACES JtasasiE" 



10 450 



CD 460 


OK 470 


PC 480 


AA 490 


66 500 


6J 550 


EN 560 


00 570 



,23:? #6;SC0RE(1) 

IF PEEK<53279)<>7 THEN 460 

IF PEEK<53279)=5 THEN N=(N=0):GOTO 410 

IF PEEK <53279)=3 THEN L=PEEK ( 1 729 ) : L= ( L 

-5) * (L>10) +20* (L=10) : POKE 1729,L:G0T0 4 

10 

IF PEEK (53279) <>6 AND PTRIG(0> THEN 470 

B(0)=5: B(l ) =5:P=0: SCORE (0) =0: SCORE ( 1 ) =0 

:L(0)=L: L( 1 )=L:POKE 77 , : FLAG= 1 : GOTO 30 

REM W BEE!3 t EMa B M33SMMS^MMiaESBES3BM 

RESTORE 590: 1=0 

READ X: IF XO-1 THEN POKE BASE+ I , X : 1 = I + 

l:GOTO 570 



HN 580 RETURN 
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FK 590 DATA 104,172,190,6,169,255,56,249,112,2 

,201, 58, 176, 2, 169, 58, 201, 195, 144, 2, 169, 

195, 141,0, 208 
GB 595 DATA 141,184,6,169,0,141,1,210,162,1,18 

9, 180, 6, 24, 125, 176, 6, 157, 176, 6, 74, 24, 10 

5, 69, 157 
HI 600 DATA 178,6,157,1,208,189,182,6,24,125,2 

45, 6, 157, 245, 6, 169, 1, 157, 237, 6, 189, 178, 

6, 201 , 69 
AB 605 DATA 176,12,32,48,154,169,0,56,253,180, 

6, 157, 180, 6, 189, 178, 6, 201, 194, 144, 12, 32 

,48, 154, 169 
CL610 DATA 0,56,253,180,6,157,180,6,189,245,6 

,201, 43, 176, 20, 32, 48, 154, 169, 4, 141, 189, 

6, 169, 
CN615 DATA 14 1,8,208,56,253,182,6,157,182,6,1 

89, 245, 6, 201, 205, 144, 21, 169, 250, 157, 245 

,6, 169, 0, 157 
ND 620 DATA 193,2,157,182,6,157,180,6,169,100, 

157, 178, 6, 189, 245, 6, 201, 42, 176, 5, 169, 43 

, 157, 245, 6 
HA 625 DATA 189,178,6,201,68,176,5,169,69,157, 

178, 6, 189, 178, 6,201 , 194, 144,5, 169, 195, 1 

57, 17B, 6, 189 
FC 630 DATA 182,6,48,63,240,61,189,13,208,201, 

1, 240, 42, 189, 178, 6, 24, 105, 3, 205, 184, 6, 1 

44, 43, 56 
10 635 DATA 233,2,56,237,189,6,205,184,6,176,3 

1, 189, 245, 6, 201, 178, 144, 24, 201, 204, 176, 

20, 201 , 183, 144 
IN 640 DATA 4,201,199,144,12,32,48,154,169,0,5 

6, 253, 182, 6, 157, 182, 6, 202, 208, 6, 76, 35, 1 

52, 32, 176 
DH 645 DATA 154.162,1.189.178.6.201.71.144.39. 

201, 193, 176, 35, 189,5,208^240^30^ 141 ^ 185 

, 6, 189, 178, 6 

JN 650 DATA 56,233,4,74,74,74,56,233,5,141,192 

,6, 172, 185, 6, 185, 193, 154, 141, 187, 6, 32, 5 

9, 154, 202 
CM 655 DATA 208,3,76,22,153,169,0,141,30,208,1 

41, 188, 6, 162, 4, 165, 88, 133, 208, 165, 89, 13 

3, 209, 160, 83 
BE 660 DATA 177,208,240,3,238,188,6,200,192,99 

,208, 244, 169, 20,24, 101, 208, 133, 208, 169, 

0, 101 , 209, 133, 209 
EL 665 DATA 202,208,226,162,2,189,244,6,240,89 

,56, 221, 240, 6, 240, 83, 141, 254, 6, 106, 141, 

255, 6, 142, 253 
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M670 



CK 675 



NJ 6B0 



EE 685 



690 



LP 695 



700 



D6 705 



ID 710 



IA 715 



FP 720 



CH 725 



DA 730 


EJ 790 


F6 800 


BD 810 



BD 81 1 



JP 812 



53, 6, 24, 109, 252, 6, 
40, 6, 133, 203, 173, 2 



255, 6, 144, 16, 
145, 203, 136, 2 



DATA 6, 24, 169, 0, 109, 

133, 204, 133, 206, 189, 

54, 6, 133, 205 

DATA 189,248,6,170,232,46, 

168, 177, 203, 145, 2 05, 169, 0, 

02, 208, 244, 76, 209 

DATA 153, 160, 0, 177, 203, 145, 205, 169, 0, 14 

5, 203, 200, 202, 208, 244, 174, 253, 6, 173, 254 

, 6, 157, 240, 6, 189 

DATA 236, 6, 240, 48, 133, 203, 24, 138, 141, 25 

3,6, 109, 235, 6, 133, 204,24, 173, 253, 6, 109, 

252, 6, 133, 206 

DATA 189, 240, 6, 133, 205, 189, 248, 6, 170, 16 

0,0, 177, 203, 145, 205, 200, 202, 208, 248, 174 

, 253, 6, 169, 0, 157 

DATA 236,6,202,48,3,76, 124, 153, 173, 191, 

6, 240, 15, 173, 188, 6, 240, 10, 173, 180, 6, 208 

, 6, 173, 181 

DATA 6, 208, 1,96,32, 176, 154, 76, 1, 152, 169 

, 170, 141, 1,210, 169, 100, 141, 0,210, 96, 173 

, 187, 6, 10 

DATA 10, 141, 188, 6, 10, 10, 24, 109, 188, 6, 24 

, 109, 192,6, 168, 177, 88, 208, 1,96, 169,0,14 

5,88, 32 

DATA 48, 154, 173, 185, 6, 24, 109, 186, 6, 141, 

186, 6, 169, 8, 56, 237, 187, 6, 141, 185, 6, 189, 

180, 6,48 

DATA 9, 173, 185, 6, 157, 180, 6, 76, 132, 154, 1 

69, 0, 56, 237, 1B5,6, 157, 180, 6, 189, 182, 6, 4 

8, 1 1 , 169 

D 

9 

, 125, 18_ 

DATA 6,24, 125, 182,6,24, 125, 182,6, 157,24 

5,6,96, 174, 193,6, 160,220, 136,208, 253,20 

2,208, 248,96 

DATA 0,0,0,0,0,0,7,6,0,5,0, 0,0, 4, - 1 

REM £7 ^J: W^ >j JlLLJg " i» T;l>g:i^ S »aiIIHB* 

£10 SPACES J «T^3IIiOiaSrriX33E2JHIiriIS«!DF 



3, 1 1 , 169 

)ATA 0, 56, 2 33, 1, 157, 182, 6, 76, 153, 154, 16 

?, 1, 157, 182, 6, 189, 245, 6, 24, 125, 182, 6, 24 



CHBAS=140: ADDR=CHBAS*256: PABE=8 

A = USR (ADR ( "hhKtiJEhtrjJChhtr^MIK, > CLUrjE! 

<:h> {h>ehka}»<: , >m{£>niGPiHEiirsDriiT:< <, > " > 

, ADDR, PABE) 

REM above= "h h INV-CTRL-E E h INV-CTRL 
-E [I h h INV-CTRL-E D Q CTRL-, INV-CTRL 
-ESQ 

REM INV-CTRL-. INV-CTRL-E E ffl CTRL-A IN 
V-SPACE CTRL-, D [I INV-CTRL-Q C C E CT C 
CCEBEDEIi CTRL-. CTRL-, 



- 
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OD 820 

PF 830 

JC 840 
16 850 

LE 860 

LO 870 
HC 890 

KB 900 
CB 910 

JD 930 

CC 940 

PP 950 

FI 960 
ON 108 

m 109 

IE 110 



RESTORE 850:FOR 1=35904+256 TO 35904+26 

3:READ X:POKE I, X I NEXT I 

RESTORE 850:FOR 1=35864 TO 35864+55:REA 

D X:POKE I,X:NEXT I 

FOR 1=35929 TO 35936:P0KE I,0:NEXT I 

DATA 0, 254, 254,254,254,254,254, 254,0,0, 

0,255,0,0,0,0,0,0,0,3,2,2,2,2,0,0,0, 128 

, 128, 128, 128, 128 

DATA 2, 2, 2, 2, 2, 2, 2, 2, 128, 128, 128, 128, 12 

8, 128, 128, 128 

rem KnmcEmai 

FOR 1=1774 TO 1787:P0KE I,0:NEXT I : POKE 

53257, 0:POKE 53258,0 
PM=12B: PMBASE=PM*256 

FOR I=PMBASE+1023 TO PMBASE+2047 : POKE 1 
,0:NEXT I : DRWBAS = PMBASE+ 1 

RESTORE 1090:FOR 1=DRWBAS TO DRWBAS+26: 
READ X:POKE I,X:NEXT I 

FOR I=DRWBAS+256 TO DRWBAS+260 : READ X:P 
OKE I,X:POKE 1+256, X:NEXT 1 : POKE 704,10 
:POKE 705,15:POKE 706,15 

POKE 1784,27:P0KE 1785,5:P0KE 1786, 5:P0 
KE 53256, 1 : FOR 1=1772 TO 1774:P0KE 1,1: 
NEXT I 

POKE 623,1:P0KE 1 788 , PM+4 : POKE 53277,3: 
POKE 54279, PM: POKE 1 77 1 , PM : RETURN 

rem w EXMssamam ebb =■ go em gg ongai 

DATA 0,255,255,255,255,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,255,255,255,255,0 
DATA 0,0,8,0,0 
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Saguaro 



Walter, Carol, Jennifer, and Andrew Bulawa 



You'll have to be fast and skillful with your joystick to grab up 
Saguaro eggs while avoiding the vulture. 

In the desert regions of the great American Southwest grows 
the Saguaro cactus. Until recently the method of propagation 
of this plant has been a mystery to the scientific community. 
However, during a recent vacation to that part of the country, 
we discovered what could be the solution to this puzzle. Hid- 
den under a large rock, which bore several unprintable 
Anasazi petroglyphs (graffiti), was a hermetically sealed may- 
onnaise jar in which was placed an ancient computer printout 
that describes the legend of the Saguaro cactus. Although we 
cannot, at this time, bring out any of the details of this legend, 
we can and must reveal that, according to this legend, the Sa- 
guaro cactus begins as an egg dropped onto the hot desert 
sand by the not-often-seen desert vulture. To give this legend 
the attention that it deserves, this program was written. 

Playing Saguaro 

You're a rancher over whose ranch flies the desert vulture 
(that's right, the same one described in the legend). As the 
vulture flies, it will periodically deposit eggs on the hot desert 
sand. You must rope these eggs before they turn into cacti and 
take them back to your cabin to get points. You will receive 
one point for each egg placed in the cabin. To rope the eggs, 
point the joystick in the direction you wish (right, left, or up 
only) and press the trigger. If an egg is at that location on the 
screen, it will disappear and you will be credited with having 
it in your possession; the egg counter will increment to record 
the number of eggs in hand. Don't worry, the eggs will not 
hatch while you're holding them. To deposit the eggs, extend 
your rope, as described above, to the front door of the cabin. 

While you're running around your ranch chasing down 
eggs, you cannot, of course, walk through existing cacti (ouch!) 
nor the prairie-dog mounds. As the game proceeds, your 
movement will grow increasingly more difficult as more and 
more cacti fill the screen, having hatched from the eggs that 
you did not retrieve in time. Always try to maintain a clear 
path to your door. In that you cannot rope eggs immediately 
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below you, don't allow yourself to get trapped by having your 
downward path blocked. 

The Heat of the Desert 

Because the desert is so hot, you cannot stay out in the sun in- 
definitely and so a timer has been provided to show you the 
number of seconds that you have remaining before you must 
return to the cabin. If you do not make it back to the cabin 
and deposit at least one egg within the allotted 50-second time 
period, you will be carried off by the desert vulture. 

Oh, another thing — while you are out gathering eggs, do 
not let the desert vulture grab you; for, if he does, he will 
carry you off and the game will be over. Good luck. 

Saguaro 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FH 10 REM SAGUARO 

M 4 GOSUB 6 00 

KH 50 GOSUB 7000 

KO 60 GOSUB 8000 

GC 90 IB=1 

HE 100 REM S KUimgi Tta 

HI 102 TIME=50-INT((PEEK<19>*256+PEEK(20)>/60> 

:POSITION CMIN+6, RMAX+2: ? #6;TIME;" ":I 

F TIME<=0 THEN B00 
MB 110 REM ** BIRD MOTION 
L0 115 READ X:IF X = -l THEN RESTORE 590:GOTO 12 


US 116 SOUND 2, X, 14, 2 
EK 120 SOUND 0, 10, 10, 6: MOVE=INT (9*RND (0) ) +1 : IF 

M0VE=5 THEN SOUND 0,0,0,0:GOTO 210 
EH 160 LOCATE BCOL + CD I FF ( MOVE ) , BROW + RD I FF < MOVE 

),X:SOUND 0,0,0,0:IF X=217 THEN 120 
PC 180 POSITION BCOL,BROW:IF RND(0)<0.3 THEN I 

F BPREV=32 THEN BPREV=234 
JD1B8 ? #6 ; CHR* ( BPREV) : BPREV=X 
CP 190 BCOL = BCOL + CDIFF (MOVE) : BROW = BROW + RD I FF < M 

OVE) 
liH 200 IB = -IB: POSITION BCOL,BROW:? #6;CHR*(74 + 

IB) 
DO 205 REM ** BIRD BITES PERSON 
BL 206 IF BPREV = 86 OR BPREV = 87 OR BPREV = 88 THE 

N TRAP 1000:GOTO 700 
BC210 REM ** SWATTING MOTION 
PH260 S=STICK (0) : T = STRIG (0) 
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HN 2 80 YDIFF=-1*(S=14)+(S=13) :XDIFF=-1*(S=11)+ 

(S = 7) 
U 300 LOCATE PCOL+XDIFF, PROW+YDIFF, X 
OE301 IF T<>0 THEN 400 
PH 302 REM ** TRIGGER PRESSED 
HF 303 IF YDIFF>0 THEN 100 
JC 304 IF X = 110 THEN GDSUB 600 
NJ 306 SOUND 1 , 20, S, 6: R=PROW+YD I FF : C = PCOL + XDIF 

F 
DF 307 POSITION C,R:? #6 ; CHR* ( 70+2* XD I FF ) : FOR 

1 = 1 TO 20:NEXT I : SOUND 1,0,0,0 
PH 330 IF X = 234 THEN X =32 : EGGS = EGG5+ 1 : POS I T I ON 

CMIN+17, RMAX+1 : ? #6;EGGS 
IF 332 POSITION C,R:? #6;CHR*(X) 
GF340 GOTO 500 

HJ 400 REM ** PERSON MOTION 
CF410 IF X<>32 THEN 425 
EH412 SOUND 1 , 1 5 , 4 , 6 : POS I T I ON POOL, PROW:? #6; 

M II 

GP420 PCOL = PCOL + XDIFF:PROW = PROW + YDIFF 

CE425 POSITION POOL, PROW:? #6 ; CHR* ( 87 + XD I FF > : 

SOUND 1,0,0,0 
rM 500 REM ** CHANGE EGG TO CACTUS 
PJ 510 C=INT<1B*RND(0) ) +1 : R=INT (21 *RND (0) ) +1 
AD 520 LOCATE C,R,X:IF X = 234 THEN POSITION C,R 

:? #6; "LT" 
6C 530 GOTO 100 
01590 DATA 81,81,0,91,0,96,96,108,96,96,0,0,1 

62, 0,1 62, 121, 121, 0,121, 0,121, 0,121, 121, 

128, 0, 121,0, 108, 108, 0,0 
JP 592 DATA 162,0,162,121,0,108,0,96,96,0,0 
KJ 594 DATA 121,128,144,144,91,0,91,0,91,91,0, 

0,91, 0,91, 96, 96,0, 108, 121,0, 128, 128, 121 

,0, 108, 0, 121, 121,0,0,0,0,-1 
AH 600 REM ** DEPOSIT EGGS 
JE 605 POKE 77,0 

HI 610 IF EGGS = THEN RETURN 
FH 630 FOR N = 50 TO STEP -2:S0UND 1,40, 10, N/4 

:NEXT N:SOUND 1 , , , : SC=SC+EGGS : E6GS=0 
KF 640 POSITION CM I N + 7 , RMAX + 1 : ? #6 ; SC : POS I T I ON 

CMIN+17, RMAX+1 : ? #6;"0 
LP 649 POKE 19,0:POKE 20,0 
HL 650 RETURN 

HD 700 REM ** BIRD FLYS AWAY WITH PERSON 
SL 705 SOUND 2,0,0,0 

E6710 BPREV=32: LOCATE BCOL , BROW+ 1 , PPREV 
JI712 IF IB=1 THEN FOR 1=20 TO 40:SOUND 2,1,1 

0, (40-1 ) /2: NEXT I 
HJ714 LOCATE BCOL + 1 , BROW , X : POS I T I ON BCOL, BROW 

: ? #6; CHR* (BPREV) ; CHRt (74+ IB) : BPREV=X 
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KC715 LOCATE BCOL + 1 , BROW + 1 , X : POB I T I ON BCOL.BR 
OW+1:? *6;CHR*(PPREV) ;CHR*(B7+IB) : PPREV 
= X 

HH716 BCOL = BCOL+l 

AL 720 FOR N=l TO 50:NEXT N 

CK 760 IB = -IB:BOTO 712 

PH 800 REM ** BIRD ATTACKS 

6P810 SOUND 0,0,0,0:SOUND 2,0,0,0 

3J820 XDIFF=INT< ( 2 . 6*RND ( ) -0 . 6 ) *SSN ( PCOL-BCO 

L) ) 
NA822 YDIFF=INT< ( 2 . 6*RND < > -0 . 6 ) *SBN ( PROW-BRO 

W) ) 

IF < <YDIFF=0) * (XDIFF=0) ) THEN 800 

LOCATE BCOL+XDIFF, BROW+YDIFF, X 

IF X = 217 THEN 800 

POSITION BCOL,BROW:? #6 ; CHR4 < BPREV ) : BPR 

EV = X 
BCOL=BCOL+XDIFF:BROW=BROW+YDIFF 

IB=-IB:POSITION BC0L,BR0W:7 #6;CHR*(74+ 

IB) 

FOR 1=1 TO 30:NEXT I 

IF ( <BPREV=B6) + (BPREV=87) + (BPREV=B8) ) T 

HEN TRAP 1000: GOTO 700 

GOTO B00 

REM **END DISPLAY 

? #6; " {CLEAR} " 

SETCOLOR 4. 3, 2: SETCOLOR 0,1,6 

FOR 1=1 TO 10:R=INT <5*RND (0) ) +18: C=INT 

< 19HRND <0) ): POSITION C,R:? #6 ; "E" : NEXT 
I 
HO 1070 FOR 1 = 1 TO 5:R=INT <5*RND <0) ) +18: C=INT ( 

19*RND <0) ) :POSITION C,R:? #6;"q":NEXT 

I 
HH 1071 IF SOTS THEN TS = SC 

KK 1080 POSITION 3,1:? #6; "TOP SCORE:";TS 
DK 1090 POSITION 3,5:? #6 ; "Pmn^SaSTJE: " ; SC 
LJ 1094 BCOL = 0: BR0W=12:TRAP 1095:GOTO 700 
AG 1095 SOUND 2 , , , : POS I T I ON BCOL.BROW:? #6; 

" "iPOBITION BCOL, BROW+1 : ? #6;" " 
BE 1096 POSITION 5,11:? #6; " IUYr=w-fc^fc^ J:1:t» " 
HA 1099 POKE 53279,8 

PH1100 RESTORE 1115:REM RED RIVER VALLEY 
PC 1105 READ X:IF X = -l THEN FOR J = l TO 200:NEX 

T J:BOTO 1100 
BN1110 IF PEEK (53279) =6 THEN SOUND 3,0,0,0:BO 

TO 60 
NI1114 SOUND 3,X,10,8:FOR J = l TO 25:NEXT J : BO 

TO 1105 
G01115 DATA 108,81,0,64,0,64,72,0,81,0,72,81, 

0,96, 0,81,81,81,0 

217 



NC 828 


JG 830 1 


DC 832 


ME 850 1 


DP 860 ! 


NI 865 


AG 880 ! 


IA 885 

1 


HC B90 


OG 1000 


FG 1010 


LD 1020 


PK 1060 
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CO 1117 
EK 1118 



EJ 6000 
NN 6020 
DI 6030 
GN 6040 
MG 6050 

BE 6100 
KO 6200 
PO 6250 

CA 6300 



NL 6400 

CE 7000 
PD 7020 
LF 7100 
6N 7120 
JI 7130 

AF 7140 

fIC 7150 
CB 7160 

BH7170 

LA 7190 
LB 7 1 9 1 
PB 7192 
6H 7194 
NE 7196 
DK 7198 
CA 7200 
BN 7210 
KB 7212 
EH 7214 
CF 7216 
DC 7218 
IF 7220 
EN 7222 
OL 7224 
KL 7300 
LH 7310 

218 



DATA 1 08, 81, 0, 64 ,0,81, 64, 0, 53,0, 60, 64, 
0, 72, 72, 72,0, 0,0 

DATA 1 08, 60, 0, 64, 0, 64, 72, 0,81,0, 72, 64, 
0, 53, 0, 60, 60, 0, 96, 96,0, 108, 0, 85, 81, 0,7 
2,0, 64, 72, 0,81, 81, 0,0, 0,-1 
REM TITLE PABE 
BRAPHICS 2+16 

POSITION 7,4:? #6 ; " SatnEaBO " 
POSITION 5,10:? #6;"PRESS START" 
COLOR 121:PL0T 1,0:DRAWTO 1,8:DRAWT0 1 
9,8:DRAWT0 19,0:DRAWTO 1,0 
POKE 53279,8 
RESTORE 1100 

READ X:IF X = -l THEN FOR J=l TO 200:NEX 
T J:BOTO 6200 

IF PEEK <53279>=6 THEN SOUND 2,0,0,0:SR 
APHICS 2+16: POSITION 4,5:? #6;"niEEHa 
:RETURN 



SOUND 2,X,10,8:FOR J=l TO 20:NEXT J : BO 
TO 6250 

REM HTEJUIEMBLTEHBi aP 
DIM CHNEW*<15) 
REM ** DEFINE CHAR SET 
CHNEW*="IKVWXDFHBJZLMNQ" 

MEMTOP=PEEK (106) *256: CHBASE=MEMTOP-204 
8 

FOR 1=0 TO 511:P0KE CHBASE+ I , PEEK ( 5734 
4+1) :NEXT I 
RESTORE 7190 

FOR 1=1 TO 15: CHADD=CHB ASE+ (ASC <CHNEW* 
(I , I) ) -32) *8 

FOR J = TO 7:READ N:POKE CHADD+ J , N: NEX 
T JrNEXT I 

DATA 0,129,90,60,24,0,0,0 
DATA 0,0,0,24,60,90,129,0 
DATA 16,184,144,112,16,56,72,72 
DATA 72,92,72,127,8,28,20,54 
DATA 8,29,9,15,8,30,18,18 
DATA 0,17,42,68,68,68,40,16 
DATA 8,20,34,34,34,20,68,64 
DATA 0,136,84,34,34,34,20,8 



DATA 9,9,9,79,72,120,8,8 

DATA 0,0,56,124,124,124,56,0 

DATA 1,3,7,15,63,255,82,115 

DATA 82,127,64,127,65,127,65,127 

DATA 128, 192,224,240,248,255,2,254 

DATA 2,254,2,254,18,30,18,30 

DATA 0,0,8,28,62,127,127,0 

DIM RDIFF(9) ,CDIFF (9) 

RESTORE 7330 
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PN 7320 FOR 1 = 1 TO 9:READ X : CD I FF ( I ) =X : READ X: 

RDIFF( I ) =X: NEXT I 
EN 7330 DATA -1,-1,0,-1,1,-1,-1,0,0,0,1,0,-1,1 

,0, 1, 1, 1 
KB 799B RETURN 

di 8000 rem BagaEBEomg 

HO 8002 GRAPHICS 1 + 16 
OK 8003 POKE 756,CHBASE/256 

NK 8004 SETCOLOR , , : SETCOLOR 1 , 1 , 6 : SETCOLOR 
2, 12, 4: SETCOLOR 3 , 3 , 1 2 : SETCOLOR 4,1,8 
FF 8010 RMIN = 0:RMAX = 20: CMIN = 0sCMAX=19 
DN 8020 COLOR 217:PL0T CM I N , RM I N : DRAWTO CMAX,R 

MIN:DRAWTO CMAX , RMAX : DRAWTO CMIN,RMAX: 

DRAWTO CMIN,RMIN 
PH 85B0 N = CMAX-CMIN-1 : J = RMAX-RM I N-3 
HB 8600 FOR 1 = 1 TO 20 
BBB610 C=INT (N*RND (0) > +CMIN+1 
DB 8620 R=INT ( J*RND (0) ) +RMIN+1 
BK 8630 POSITION C,R:? #6;"E" 
FK 8640 NEXT I 
HH 8650 FOR 1 = 1 TO 12 
LB 8660 C=INT<N*RND(0) )+CMIN+l:R=INT <J*RND<0) ) 

+RMIN+1 
IP 8670 POSITION C,R:? #6;"q":NEXT I 
OK 8800 BCOL=10: BROW= 1 : LOCATE BCOL , BROW , X : BPR 

EV = X 
BB8810 PC0L = CMIN + 3: PROW = RMAX-l 
BI 8849 REM ** MAKE EGB DEPOSITORY 
HI 8850 POSITION CM I N+ 1 , RMAX-2 : ? #6;"zm" 
LN 8852 POSITION CM I N+ 1 , RMAX- 1 : ? #6;"ln" 
FH 8900 SC = 0:EGGS = 0: POSITION CM I N , RMAX + 1 : ? #6; 

"SCORE: ";SC;:? #6;" {3 SPACESJEGGS: ": 

EGGS 
FC 8902 ? #6; "SECS: " 

JI 8950 RESTORE 590 

NA 8960 IB=1 

BI 8998 POKE 19,0:POKE 20,0:RETURN 
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- Beginner's Guide to 
Typing In Programs 

A computer cannot perform any task by itself. Like a car with- 
out gas, a computer has potential, but without a program, it 
isn't going anywhere. All the programs in this book are writ- 
ten in a computer language called BASIC. Atari BASIC is easy 
to learn. 

BASIC Programs 

Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, and number is 
significant. Common mistakes are substituting a letter such as 
for the numeral 0, a lowercase I for the numeral 1, or an 
uppercase B for the numeral 8. Also, you must enter all 
punctuation marks, such as colons and commas, just as they 
appear in the book. Spacing can be important. To be safe, type 
in the listings exactly as they appear. 

Braces and Special Characters 

The exception to this typing rule is when you see the braces, 
for example, {DOWN}. Anything within a set of braces is a 
special character or characters that cannot easily be listed on a 
printer. When you come across such a special statement, refer 
to "How to Type In Programs," Appendix B. 

About DATA Statements 

Some programs contain a section or sections of DATA state- 
ments. These lines provide information needed by the pro- 
gram. Some DATA statements contain actual programs (in 
machine language), while others may contain graphics codes. 
These lines are especially sensitive to errors. 

If a single number in any one DATA statement is 
mistyped, your machine could lock up, or crash. The key- 
board, BREAK key, and RESET key may seem dead, and the 
screen may go blank. But don't panic. No damage has been 
done. To regain control, turn off your computer and then turn 
it back on. This will erase whatever program was in memory, 
so always save a copy of your program before you run it. If your 
computer crashes, you can load the program and look for your 
mistake. 
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Sometimes a mistyped DATA statement will cause an er- 
ror message when the program is run. The error message may 
refer to the program line that READs the data. However, the 
error is still in the DATA statements. 

Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program so that you won't have to type 
it in every time you want to use it. Learn to use your ma- 
chine's editing functions. How do you change a line if you 
make a mistake? You can always retype the line, but you 
should at least know how to backspace. Do you know how to 
enter inverse-video, lowercase, and control characters? It's all 
explained in your manual. 

To insure accurate entry of each program line, we have 
included a checksum program. Please read "The Automatic 
Proofreader," Appendix C, before typing in any of the pro- 
grams in this book. 

A Quick Review 

1. Type in the program a line at a time in order. Press RE- 
TURN at the end of each line. Use BACKSPACE to correct 
mistakes. 

2. Check the line you've typed against the line in the book. 
You can check the entire program again if you get an error 
when you run the program. 

3. Make sure you've entered statements in braces as the 
appropriate control key. 

4. Be sure to save the program on tape or disk before running 
the program. 
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_ How to Type In 
Programs 



In order to make special characters, inverse-video, and cursor 
characters easy to type in, we use the following listing con- 
ventions for all the programs in this book. Please refer to the 
table and explanations if you come across an unusual symbol 
in a program listing. 

Conventions 

Characters in inverse video will appear like this: 



k*:LUai:fc!aH 


l»>^-3=*«: 










Enter these 


characters with the Atari key: 




When you see 


Type 


See 


(CLEAR} 




ESC 


SHIFT < 


n 


Clear Screen 


(UP) 




ESC 


CTRL - 


» 


Cursor Up 


{DOWN} 




ESC 


CTRL = 


* 


Cursor Down 


(LEFT) 




ESC 


CTRL + 


*- 


Cursor Left 


(RI GHT> 




ESC 


CTRL * 


^~ 


Cur sor Right 


(BACK S> 




ESC 


DELETE 


^ 


Backspace 


(DELETE} 




ESC 


CTRL DELETE 


a 


Delete Character 


( INSERT} 




ESC 


CTRL INSERT 


83 


Insert Character 


(DEL LINE} 




ESC 


SHIFT DELETE 


□ 


Delete Line 


(INS LINE} 




ESC 


SHIFT INSERT 


H 


Insert Line 


(TAB} 




ESC 


TAB 


► 


TAB key 


(CLR TAB} 




ESC 


CTRL TAB 


Q 


Clear TAB 


(SET TAB} 




ESC 


SHIFT TAB 


E3 


Set TAB stop 


CBELLJ 




ESC 


CTRL 2 


ca 


Ring Buzzer 


(ESC) 




ESC 


ESC 


t 


ESCape key 



Graphics characters such as CTRL-T, the ball character, will 
appear as the normal letter enclosed in braces, {T}. 

A series of identical control characters, such as 10 spaces, 
3 cursor lefts, or 20 CTRL-R's, will appear as {10 SPACES}, 
{3 LEFT}, {20 R}, and so on. If the character in braces is in 
inverse video, that character or characters should be entered 
with the Atari key. 

Program entry can be mistake-proof if you use "The 
Automatic Proofreader" by Charles Brannon; see Appendix C. 
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The Automatic 
Proofreader 



Charles Brannon 



At last there's a way for your computer to help you check your 
typing. "The Automatic Proofreader" will make entering programs 
faster, easier, and more accurate. 

The strong point of computers is that they excel at tedious, 
exacting tasks. So why not get your computer to check your 
typing for you? 

"The Automatic Proofreader" will help you type in program 
listings without typing mistakes. It's a short error-checking 
program that hides itself in memory. When activated, it lets 
you know immediately after you type a line from a program 
listing if you have made a mistake. Please read these instruc- 
tions carefully before typing any programs in this book. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be very 
careful when entering the DATA statements — don't type the 
letter I instead of the number 1, the letter O instead of the 
number 0, extra commas, and so forth. 

2. Save the Proofreader on tape or disk at least twice before 
running it for the first time. 

3. After the Proofreader is saved, type RUN. It will check itself 
for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place — you'll need it again 
and again, every time you enter a program from this book 
or from COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it activates 
itself. You are now ready to enter a program listing. If you 
press SYSTEM RESET, the Proofreader is disabled. To re- 
activate it, just type PRINT USR(1536) and press RETURN. 

Using the Proofreader 

All listings in this book have a checksum found immediately to 
the left of each line number. Don't enter the checksum when 
typing in a program. It is just for your information. 

When you type in a line from a program listing and press 
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RETURN, the Proofreader displays the checksum letters at the 
top of your screen. These checksum letters must match the 
checksum letters in the printed listing. If they don't match, it 
means you typed the line differently from the way it is listed. 
Recheck your typing immediately. You can correct any mis- 
takes you find. 

The Proofreader is not picky with spaces. It will not no- 
tice extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces. 
The Proofreader will catch practically everything else that can 
go wrong. 

Due to the nature of a checksum, the Proofreader will not 
catch all errors. The Proofreader will not catch errors of trans- 
position. In fact, you could type in a line in any order, and the 
Proofreader wouldn't notice. 

There's another thing to watch out for: If you enter a line 
by using abbreviations for commands, the checksum will not 
match up. But there is a way to make the Proofreader check it. 
After entering the line, LIST it. This eliminates the abbrevi- 
ations. Then move the cursor up to the line and press RE- 
TURN. It should now match the checksum. You can check 
whole groups of lines this way. The only abbreviation that 
cannot be handled this way is when a question mark (?) is 
used instead of PRINT; they are not the same to the 
Proofreader. 



The Automatic Proofreader 



100 GRAPHICS 

110 FOR 1=1536 TO 1700:READ A:POKE I,A:CK=C 

K+A:NEXT I 
120 IF CKO19072 THEN ? "ERROR IN DATA STAT 

EMENTS. CHECK TYPING. " : END 
130 A=USR(1536> 
140 ? :? "AUTOMATIC PROOFREADER NOW ACTIVAT 

en " 



ED. 
150 END 
1536 DATA 
1542 
1548 
1554 
1560 
1566 
1572 
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157B 
1584 
1590 
1596 
1602 
1608 
1614 
1620 
1626 
1632 
1638 
1644 
1650 
1656 
1662 
1668 
1674 
1680 
1686 
1692 
1698 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



169 
6, 1 
4,2 
6, 1 
141 
203 
93, 
124 
0, 
246 
201 
101 
96, 
160 
200 
203 
105 
165 
161 
133 
104 



,9 

41,7 

28, 1 

73, 5 

96, 

96, 

6, 24 

241 

0, 

8, 2 

32, 

203 

72, 1 

0, 1 

192 

74, 

161 

203 

200 

203 

40 



141 , 78,6, 169 
9, 6, 24, 173 
05, 1 , 141 , 95 
, 228, 105, 
6, 169, 0, 133 
247, 238, 125, 241 
4, 241 , 115,241 
, 76, 205, 238, 

2, 62 
01 , 155, 240, 13 
240, 7, 72, 24 
, 133, 203, 104, 40 
52, 72, 138, 72 
69, 128, 145, 88 
, 40, 208, 249, 165 
74, 74, 74, 24 
, 160, 3, 145, 88 
, 41 , 15, 24, 105 
, 145, 8B, 169, 
, 104, 170, 104, 168 
96 
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"Atagraph" program 68-72 

"Atagraph String Maker" program 
67-68 

"Atari Bibliography" program 8-17 

"Automatic Proofreader, The" program 
226-28 

autonumbered DATA statements 49-50 

"Beginner's Guide to Typing In Pro- 
grams" 223-24 

"Block Line Deleter" program 53-54 

braces 223, 225 

byte 
high 56 
low 56 

"Catacombs of Your Mind, The" pro- 
gram 190-207 

character set, redefined 148 

checksum 226-27 

"Climb" program 113-16 

COLOR command 65 

console keys 
ENTER 75 
OPTION 75 
SELECT 75 
START 75 

data dictionary 27 

data dictionary record 30 

"DATA Dumper" program 62 

"Data Management System" program 
26-40, 41-42 

DATA statements 223 

"Deep" program 165-69 

defining a key 49-50 

disassembly 61 

DMS/DB variables 30 

"DMSDB" program 31-38 

"DMSSORT" program 39-40 

"Double Brickout" program 208-13 

drawing frame 65 

"Electronic Football" program 121-25 

"Front Attack" program 117-20 

"Granite Cracker" program 179-82 

"Graphics Plus Demo" program 95-96 

"Graphics Plus" program 85-95 

"Guardian" program 101-4 

"Heavenly Gates, The" program 
126-37 



"Heroes" program 170-78 
"Hopeful Journey" program 138-40 
"Hoppo" program 141-47 
indicators 

X= 73 

Y= 73 

C= 73 

LAST= 73 

M 73 
listing conventions 225 
LOCATE statement 149 
"Machine Language Sort" program 

10-11 
"Magic Directory, The" program 3-7 
"Mailing Label Utility" program 41-45 
memory 

allocation 126-27 

location 56, 127 

saving 8 
"Mt. Rock" program 105-12 
"Personal Net Worth Statement" pro- 
gram 18-25 
"Pits of Pluto" program 183-87 
pointer 56 

print, single forms 41-42 
quit option (Q) 85 
"Saguaro" program 214-19 
scroll 59 

"Scroll Protect" program 59-60 
SETCOLOR command 65 
"Snowflake" program 98 
"Spiral" program 98 
"Superplot" program 76-81 
"Teaching Concepts" program 157-62 
"Termite" program 148-53 
"Textplot" 84-85 
"Turtle Subroutine" program 98 
"Userkeys" program 50-51 
"Variable Changer" program 54-55 
"Variable Lister, BASIC" program 58 
"Variable Lister, Machine Language" 

program 58 
variable name table (VNT) 56-57 
vertical blank interrupt (VBI) 59 
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To order your Atari Collection, Vol. 2 Disk package, call our 
toll-free US order line: 1-800-334-0868 (in NC call 919-275- 
9809) or send your prepaid order to: 

Atari Collection, Vol. 2 Disk 
COMPUTE! Publications 
P.O. Box 5058 
Greensboro, NC 27403 

Send packages of the Atari Collection Vol. 2 Disk at 

$19.95 per package. Each disk package contains two disks. 

All orders must be prepaid (check, charge, or money order). NC 
residents add 4.5% sales tax. 

Subtotal $ 

Shipping & Handling: $2.00/package $ 

NC residents add 4.5% sales tax $ 

Total payment enclosed $ 

All payments must be in U.S. funds. 

a Payment enclosed 

a Charge □ Visa □ MasterCard a American Express 



Acct. No. Exp. Date 

(Required) 



Name 



Address 



City State Zip 

Please allow 4-5 weeks for delivery. 
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— COMPUTE! Books 

P.O. Box 5058 Greensboro, NC 27403 

Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly from COMPUTE!. 

For Fastest Service 
— Call Our TOLL FREE US Order Line 

800-334-0868 
In NCcall 919-275-9809 

— Or write COMPUTE! Books, 

P.O. Box 5058, Greensboro, NC 27403 

Quantity Title Price Total 

COMPUTE !'s First Book of Atari (00-0) $12.95 

COMPUTEI's Second Book of Atari (06-X) $12.95 

COMPUTEI's Third Book of Atari (18-3) $12.95 

COMPUTEI's First Book of Atari Graphics (08-6) $12.95 

COMPUTEI's Second Book of Atari 

Graphics (28-0) $12.95 

COMPUTEI's First Book of Atari Games (14-0) $12.95 

The Atari BASIC Source Book (15-9) $12.95 

Inside Atari DOS (02-7) $19.95 

COMPUTEI's Atari Collection, Volume 1 (79-5) $12.95 

COMPUTEI's Atari Collection, Volume 2 (029-7) $14.95 

Machine Language for Beginners (1 1-6) $14.95 

Second Book of Machine Language (53-1) $14.95 

Computing Together: A Parent and 

Teacher's Guide to Using Computers 

with Young Children (51-5) $12.95 

SpeedScript: The Word Processor 

for the Atari (003) $ 9.95 

Mapping The Atari, Revised (004) $16.95 

Add $2.00 per book shipping and handling. Outside US add 
$5.00 air mail or $2.00 surface mail. 

NC residents add 4.5% sales tax 

Shipping & handling 

Total payment 

All orders must be prepaid (money order, check, or charge). All 
payments must be in US funds. 

□ Payment enclosed Please charge my: □ Visa □ MasterCard 
h, □ American Express 

Acct. No Exp. Date 

. Name 

Address 

City State Zip 

Country 

"Allow 4-5 weeks for delivery. 

Prices and availability subject to change without notice. 45N0293 
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All New Atari 



With nearly 30 never-before-published articles and programs, 
including more than a dozen games, COMPUTEI's Atari Col- 
lection, Volume 2 brings you high-quality software for the 
Atari personal computer at an affordable price. 

Like its forerunner, COMPUTEI's Atari Collection, Volume 7, 
this book offers outstanding programs that run on the Atari 
400, 800, XL, and XE computers. All the programs have been 
fully tested and are ready to type in using the error-checking 
utility, "The Automatic Proofreader." 

Here's a sample of what's inside: 

i A complete database management program that's easy to 
adapt to your individual needs; 

• "Double Brickout," a fast-action paddle game; 

A short routine you can use in your programs which adds 
turtle-graphics-style commands to BASIC; 

• A graphic adventure that combines the traditional use of 
keyboard commands with joystick movement and a graph- 
ics screen; 

• "Atari Bibliography," an easy-to-use database to index all 
your computer magazine articles for quick retrieval; 
Utilities that change variable names and delete blocks of 
lines; 

• Two graphics routines for creating displays you can save 
and use in your own programs. 

As with all COMPUTE! books, the programs are ready to 
type in and use. Or, if you prefer, you can purchase a disk 
package which includes all the programs on disk, ready to 
load and run. 

Atari owners know what to expect from COMPUTE! 
books — clear instructions and top-notch programs. COM- 
PUTEI's Atari Collection, Volume 2 meets those expectations, 
and more. 



ISBN 0-87455-029-7 



